fix

biocad · Dec 8, 2023 · fe00916 · fe00916
1 parent 5c9bb16
commit fe00916
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/test/FASTASpec.hs b/test/FASTASpec.hs
@@ -2,6 +2,7 @@
 
 module FASTASpec where
 
+import Data.Bifunctor         (first)
 import Bio.FASTA              (fastaP, fromFile, toFile)
 import Bio.FASTA.Parser       (parseOnly)
 import Bio.FASTA.Type         (Fasta, FastaItem (..))
@@ -71,7 +72,7 @@ parseBadFile path cf =
     it ("correctly parses bad fasta from file " <> path) $ do
         res <- liftIO (readFile path)
         let badRes = parseOnly fastaP res
-        noTabs badRes `shouldBe` cf
+        first noTabs badRes `shouldBe` cf
 
 writeFile :: FilePath -> Fasta Char -> Spec
 writeFile path cf =