Fix warnings

biocad · Mar 23, 2023 · a776cc6 · a776cc6
1 parent 36d1dfb
commit a776cc6
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/package.yaml b/package.yaml
@@ -34,6 +34,7 @@ default-extensions:
 - ScopedTypeVariables
 - TypeApplications
 - TypeFamilies
+- TypeOperators
 - TypeSynonymInstances
 - UndecidableInstances
 

diff --git a/test/JuliaSpec.hs b/test/JuliaSpec.hs
@@ -25,8 +25,8 @@ juliaGlobal = do
     it "Is symmetric (big): " $   score resBig1   `shouldBe` score resBig2
     it "Is symmetric (med): " $   score resMed1   `shouldBe` score resMed2
     it "Is symmetric (small): " $ score resSmall1 `shouldBe` score resSmall2
-    -- | scoremodel = AffineGapScoreModel(EDNAFULL, gap_open=0, gap_extend=-9);
-    -- | pairalign(GlobalAlignment(), a, b, scoremodel)
+    -- scoremodel = AffineGapScoreModel(EDNAFULL, gap_open=0, gap_extend=-9);
+    -- pairalign(GlobalAlignment(), a, b, scoremodel)
     let aAns = "CTCTGCAAGCATAGAGATATTTCACCGGCAATATTTTTCGTTGAAGTGTATTTGTCCCTATTATCACACC\
                 \AGTCATTCCGATGTCGTTAGGGCCGCCTGTTTTACTGGAGTTCCCGTTCGATGTACCCTCCTCCATAGA\
                 \GATTTAGGGGTATAGACCGCGACGGACGGGGCTTGCGAAAGCTGCCCGATAATGGACTTTGACAATAGA\
@@ -111,8 +111,8 @@ juliaSemiglobal = do
     it "Is symmetric (big): " $   score resBig1   `shouldBe` score resBig2
     it "Is symmetric (med): " $   score resMed1   `shouldBe` score resMed2
     it "Is symmetric (small): " $ score resSmall1 `shouldBe` score resSmall2
-    -- | scoremodel = AffineGapScoreModel(EDNAFULL, gap_open=0, gap_extend=-3);
-    -- | pairalign(OverlapAlignment(), a, b, scoremodel)
+    -- scoremodel = AffineGapScoreModel(EDNAFULL, gap_open=0, gap_extend=-3);
+    -- pairalign(OverlapAlignment(), a, b, scoremodel)
     let aAns = "CTCTGCAAGCATAGAGATATTTCACCGGCAATATTTTTCGTTGAAGTGTATTTGTCCCTATTATCACACC\
                 \AGTCATTCCGATGTCGTTAGGGCCGCCTGTTTTACTG--G-AG--TTC--C-CGTTCGATGTACCCTCC\
                 \TCCATAGAGA-TTTAGGGGTA-T-AGACCGCGACGGACGGGGCTTGCGAAAGCTGCCCGATAATGGACT\
@@ -188,8 +188,8 @@ juliaLocal = do
     it "Is symmetric (big): " $   score resBig1   `shouldBe` score resBig2
     it "Is symmetric (med): " $   score resMed1   `shouldBe` score resMed2
     it "Is symmetric (small): " $ score resSmall1 `shouldBe` score resSmall2
-    -- | scoremodel = AffineGapScoreModel(EDNAFULL, gap_open=0, gap_extend=-7);
-    -- | pairalign(LocalAlignment(), a, b, scoremodel)
+    -- scoremodel = AffineGapScoreModel(EDNAFULL, gap_open=0, gap_extend=-7);
+    -- pairalign(LocalAlignment(), a, b, scoremodel)
     let aAns = "TGAA-CAGCCATGCCA-TC-CGCAGGATGCGCC-AGGGAAAAGCCACCCCCAAGAACGACTCCA\
                 \GGGGCCCAAGTATGATGATAGC-GTTAGGCTTGCTCGAAGGCAAACAACTCCGAGG-ATGC-T\
                 \TAGCAGGCCACAACGTGCTCGATAGCACGAGCGTAAGATGCGAACGCAGTAGTACCTAATGCGGGCGAGACATT"