align 0.1.1.0 → 0.1.1.1
raw patch · 3 files changed
+10/−4 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Data.Align: instance (Show a, Show s) => Show (Trace a s)
+ Data.Align: instance (GHC.Show.Show a, GHC.Show.Show s) => GHC.Show.Show (Data.Align.Trace a s)
- Data.Align.Demo: sampleGlobalConfig :: Eq a => AlignConfig a Double
+ Data.Align.Demo: sampleGlobalConfig :: (Eq a) => AlignConfig a Double
Files
- LICENSE +1/−1
- align.cabal +1/−1
- src/Data/Align.hs +8/−2
LICENSE view
@@ -1,4 +1,4 @@-Copyright (c) 2014, Robin Palotai+Copyright (c) 2014, Robin Palotai, Google Inc All rights reserved.
align.cabal view
@@ -1,5 +1,5 @@ name: align-version: 0.1.1.0+version: 0.1.1.1 synopsis: Sequence alignment algorithms. description: Global or local sequence alignment, not exclusively for text. license: BSD3
src/Data/Align.hs view
@@ -220,7 +220,7 @@ go acc [] = reverse acc go acc (s:xs) = go (conv s []:acc) xs --- conv s rest = case s of + conv s rest = case s of Right (c, d) -> MultiStep (Just c) (Just d:rest) Left (Left c) -> MultiStep (Just c) (Nothing:rest) Left (Right d) -> MultiStep Nothing (Just d:rest)@@ -263,6 +263,12 @@ ((i,v):rest) <- L.tails vs (j,w) <- rest let tr = align conf v w- [((i,j), tr), ((j,i), tr)]+ [((i,j), tr), ((j,i), flipLR tr)]+ where+ flipLR tr = tr { trace = map go . trace $ tr }+ where+ go (Left (Left a)) = Left (Right a)+ go (Left (Right a)) = Left (Left a)+ go (Right (c,d)) = Right (d,c) -- starSum = sum . map (traceScore . snd)