✨ Throw our own error on an unknown base code

davep · Apr 7, 2019 · 694914d · 694914d
1 parent 628b339
commit 694914d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/dna.hs b/dna.hs
@@ -34,6 +34,7 @@ compBase 'd' = 'h'
 compBase 'h' = 'd'
 compBase 'N' = 'N'
 compBase 'n' = 'n'
+compBase _ = error "Unknown base code"
 
 -- Complement a sequence.
 compSeq :: [Char] -> [Char]