imports and comments

biocad · Dec 17, 2024 · 2f66a1b · 2f66a1b
1 parent 95b519e
commit 2f66a1b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 8 deletions.
diff --git a/src/Bio/GB/Parser.hs b/src/Bio/GB/Parser.hs
@@ -16,7 +16,7 @@ import           Data.Functor               (($>))
 import           Data.Text                  (Text, intercalate, pack, splitOn, unpack)
 import qualified Data.Text                  as T
 import           Text.Megaparsec            (notFollowedBy, option, satisfy, sepBy1, takeWhile1P,
-                                             takeWhileP, try, (<?>), chunk)
+                                             takeWhileP, try, (<?>))
 import           Text.Megaparsec.Char       (char, digitChar, eol, letterChar, string)
 import           Text.Megaparsec.Char.Lexer (decimal)
 
@@ -46,7 +46,6 @@ metaP = do
 
   pure $ Meta locus' definitionM accessionM versionM keywordsM sourceM referencesL commentsL
 
--- LOCUS       AB32-36 pIntA_BC        6260 bp DNA     circular SYN 11-SEP-2024
 locusP :: Parser Locus
 locusP = string "LOCUS" *> space *> (Locus
        <$> nameP <* space                                      -- name

diff --git a/test/GBParserSpec.hs b/test/GBParserSpec.hs
@@ -14,12 +14,12 @@ import Text.Megaparsec (eof, errorBundlePretty, parse)
 
 gbParserSpec :: Spec
 gbParserSpec = describe "GenBank format parser." $ do
-    -- rangeTests
-    -- pAAVGFPSpecP "test/GB/pAAV-GFP-CellBioLab.gb"
-    -- pAAVCMVSpecP "test/GB/pAAV_CMV_RPE65_PolyA_linkers.gb"
-    -- dottedMetaSpecP "test/GB/pAAV-GFP-CellBioLab-dots.gb"
-    -- unknownFieldsSpecP "test/GB/pIntA-TRBV.gb"
-    -- baseCountWithSophisticatedRangesAndMultilineFeatures "test/GB/fromYanaWithLove.gb"
+    rangeTests
+    pAAVGFPSpecP "test/GB/pAAV-GFP-CellBioLab.gb"
+    pAAVCMVSpecP "test/GB/pAAV_CMV_RPE65_PolyA_linkers.gb"
+    dottedMetaSpecP "test/GB/pAAV-GFP-CellBioLab-dots.gb"
+    unknownFieldsSpecP "test/GB/pIntA-TRBV.gb"
+    baseCountWithSophisticatedRangesAndMultilineFeatures "test/GB/fromYanaWithLove.gb"
     spacesInLocusName "test/GB/spaces_in_locus.gb"
 
 rangeTests :: Spec