BiobaseInfernal 0.5.1.0 → 0.5.2.0

raw patch · 3 files changed

+16/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Biobase/Infernal.hs +3/−0
• Biobase/Infernal/VerboseHit/Export.hs +12/−2
• BiobaseInfernal.cabal +1/−1

@@ -9,6 +9,7 @@   , vhFromFile   , eneeVerboseHit   , vhEneeByteString+  , vhEneeByteStrings   , Species(..)   ) where @@ -28,5 +29,7 @@ vhFromFile = VH.fromFile vhEneeByteString :: Monad m => Enumeratee [VerboseHit] ByteString m a vhEneeByteString = VH.eneeByteString+vhEneeByteStrings :: Monad m => Enumeratee [VerboseHit] [ByteString] m a+vhEneeByteStrings = VH.eneeByteStrings  tFromFile = T.fromFile

@@ -28,11 +28,21 @@ -- one element was printed?  eneeByteString :: Monad m => Enumeratee [VerboseHit] BS.ByteString m a-eneeByteString = unfoldConvStream f (AliGo BS.empty BS.empty '?') where+eneeByteString = eneeByteStrings ><> mapChunks BS.concat++-- | This transformer keeps a 1-1 relationship between each 'VerboseHit' and+-- bytestring representation. Useful for merging different streams, if+-- individual 'VerboseHit's are to be annotated.++eneeByteStrings :: Monad m => Enumeratee [VerboseHit] [ByteString] m a+eneeByteStrings = unfoldConvStream f (AliGo BS.empty BS.empty '?') where   f acc = do     h <- I.head     let na = newAcc acc h-    return (fst na , BS.unlines $ snd na ++ [showVerboseHit h])+    return (fst na , return . BS.unlines $ snd na ++ [showVerboseHit h])++-- | Given the current state "a" and verbose hit "h", determine if any state+-- switches have to be emitted.  newAcc a@(AliGo{..}) h@VerboseHit{..}   | otherwise = ( AliGo vhCM vhScaffold vhStrand, ls )

@@ -1,5 +1,5 @@ name:           BiobaseInfernal-version:        0.5.1.0+version:        0.5.2.0 author:         Christian Hoener zu Siederdissen maintainer:     choener@tbi.univie.ac.at homepage:       http://www.tbi.univie.ac.at/~choener/