sequence-formats 1.6.0 → 1.6.1

raw patch · 2 files changed

+4/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• sequence-formats.cabal +1/−1
• src/SequenceFormats/Plink.hs +3/−3

@@ -1,6 +1,6 @@ cabal-version:      >=1.10 name:               sequence-formats-version:            1.6.0+version:            1.6.1 license:            GPL-3 license-file:       LICENSE maintainer:         stephan.schiffels@mac.com

@@ -164,9 +164,9 @@     genoLineToBytes genoLine = go (toList genoLine)       where         go :: [GenoEntry] -> [Word8]-        go (g1 : g2 : g3 : g4 : rest) = constructByte [g1, g2, g3, g4] : go rest-        -- go (g1 : g2 : g3 : g4 : rest) = constructByte [g4, g3, g2, g1] : go rest-        go genoEntries = [constructByte genoEntries]+        go [] = [] -- empty list for recursion stop+        go (g1 : g2 : g3 : g4 : rest) = constructByte [g1, g2, g3, g4] : go rest -- at least 5 entries -> more than 1 byte+        go genoEntries = [constructByte genoEntries] -- four or less entries -> 1 byte         constructByte :: [GenoEntry] -> Word8         constructByte [] = error "constructByte - should never happen"         constructByte [g] = genoEntryToByte g