1 files changed, 0 insertions, 27 deletions
diff --git a/sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch b/sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch
deleted file mode 100644
index 90dfb2326918..000000000000
--- a/sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch
+++ /dev/null
@@ -1,27 +0,0 @@
-diff --git a/src/Flower.hs b/src/Flower.hs
-index fca5814..9424222 100644
---- a/src/Flower.hs
-+++ b/src/Flower.hs
-@@ -25,6 +25,7 @@ import qualified Data.ByteString.Lazy as L1
- 
- import Data.Array.Unboxed
- import Data.Array.ST
-+import qualified Data.Array.Unsafe as U
- import Control.Monad.ST
- import Control.Monad.State
- 
-@@ -238,10 +239,10 @@ histogram fl scores = runST $ do
-       ins1 (x,_)   = error ("Illegal character "++show x++" in flow!")
-       bump ar i = readArray ar i >>= \x -> writeArray ar i (x+1)
-   mapM_ ins1 (zip (cycle fl) (map (\x->if x>9999 || x<0 then 9999 else x) $ concat scores))
--  a' <- unsafeFreeze a
--  c' <- unsafeFreeze c
--  g' <- unsafeFreeze g
--  t' <- unsafeFreeze t
-+  a' <- U.unsafeFreeze a
-+  c' <- U.unsafeFreeze c
-+  g' <- U.unsafeFreeze g
-+  t' <- U.unsafeFreeze t
-   return (a',c',g',t')
- 
- showHist :: (Hist,Hist,Hist,Hist) -> String