1 files changed, 27 insertions, 0 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
new file mode 100644
index 000000000000..90dfb2326918
--- /dev/null
+++ b/sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch
@@ -0,0 +1,27 @@
+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