Vks4git/fasta (#55)

* Version 0.1.3.20: fixed Fasta parser.

* Fix

* Some fixes

ChangeLog.md

@@ -2,6 +2,10 @@
 
 ## [Unreleased]
 
+## [0.1.3.20] - 2021-06-04
+### Changed 
+- YLAB2-629: Fasta parser is now able to parse empty lines in the beginning. 
+
 ## [0.1.3.19] - 2021-04-30
 ### Changed 
 - Exports and instances for Biosset. 

package.yaml

@@ -1,5 +1,5 @@
 name:                cobot-io
-version:             0.1.3.19
+version:             0.1.3.20
 github:              "biocad/cobot-io"
 license:             BSD3
 category:            Bio

src/Bio/FASTA/Parser.hs

@@ -12,7 +12,7 @@ import Bio.FASTA.Type       (Fasta, FastaItem (..), ModItem (..), Modification (
 import Bio.Sequence         (BareSequence, bareSequence)
 import Control.Applicative  ((<|>))
 import Data.Attoparsec.Text (Parser, char, choice, endOfInput, endOfLine, many', many1', satisfy,
-                             skipWhile, string, takeWhile, try)
+                             skipWhile, space, string, takeWhile, try)
 import Data.Char            (isAlphaNum, isLetter, isSpace)
 import Data.Text            (Text, strip)
 import Prelude              hiding (takeWhile)
@@ -27,7 +27,7 @@ instance ParsableFastaToken ModItem where
 -- | Parser of .fasta file.
 --
 fastaP :: ParsableFastaToken a => Parser (Fasta a)
-fastaP = fastaPGeneric isLetter
+fastaP = many' space *> fastaPGeneric isLetter
 
 fastaPGeneric :: ParsableFastaToken a => (Char -> Bool) -> Parser (Fasta a)
 fastaPGeneric = many' . item