slyfox 15/01/19 22:44:09 Added: flower-0.7.2-ghc-7.8.patch Log: Port to ghc-7.8 (bug #537052 by Toralf Förster). (Portage version: 2.2.15/cvs/Linux x86_64, signed Manifest commit with key 611FF3AA)
Revision Changes Path 1.1 sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch?rev=1.1&view=markup plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/sci-biology/flower/files/flower-0.7.2-ghc-7.8.patch?rev=1.1&content-type=text/plain Index: flower-0.7.2-ghc-7.8.patch =================================================================== 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
