summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch')
-rw-r--r--sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch27
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 90dfb232691..00000000000
--- 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