Make -Wall-clean and build with -Wall.

1 files changed, 10 insertions, 2 deletions

diff --git a/tests/suite.hs b/tests/suite.hs
index ffcbc17..5ad3d05 100644
--- a/tests/suite.hs
+++ b/tests/suite.hs
@@ -1,7 +1,7 @@
-import Test.Framework (defaultMain, testGroup)
+import Test.Framework (defaultMain, testGroup, Test)
 import Test.Framework.Providers.HUnit
 
-import Test.HUnit
+import Test.HUnit (Assertion, assertEqual, assertFailure)
 
 import Codec.Encryption.OpenPGP.ASCIIArmor (decode, decodeLazy, encode, encodeLazy, multipartMerge)
 import Codec.Encryption.OpenPGP.ASCIIArmor.Types
@@ -27,6 +27,7 @@ testArmorDecode fp targets = do
         Right as -> assertEqual ("for " ++ fp) tbss (map getPayload as)
     where
         getPayload (Armor _ _ pl) = pl
+        getPayload _ = error "This should not happen."
 
 testArmorMultipartDecode :: FilePath -> FilePath -> Assertion
 testArmorMultipartDecode fp target = do
@@ -37,6 +38,7 @@ testArmorMultipartDecode fp target = do
         Right as -> assertEqual ("for " ++ fp) tbs (getPayload (multipartMerge as))
     where
         getPayload (Armor _ _ pl) = pl
+        getPayload _ = error "This should not happen."
 
 testClearsignedDecodeBody :: FilePath -> FilePath -> Assertion
 testClearsignedDecodeBody fp target = do
@@ -45,8 +47,10 @@ testClearsignedDecodeBody fp target = do
     case decodeLazy bs of
         Left e -> assertFailure $ "Decode failed (" ++ e ++ ") on " ++ fp
         Right [a] -> assertEqual ("for " ++ fp) (convertEndings tbs) (getBody a)
+        _ -> assertFailure "This shouldn't happen."
     where
         getBody (ClearSigned _ txt _) = txt
+        getBody _ = error "This should not happen."
         convertEndings = crlfUnlinesLazy . BLC8.lines
 
 testClearsignedDecodeSig :: FilePath -> FilePath -> Assertion
@@ -56,8 +60,10 @@ testClearsignedDecodeSig fp target = do
     case decodeLazy bs of
         Left e -> assertFailure $ "Decode failed (" ++ e ++ ") on " ++ fp
         Right [a] -> assertEqual ("for " ++ fp) tbs (getSig a)
+        _ -> assertFailure "This shouldn't happen."
     where
         getSig (ClearSigned _ _ (Armor _ _ sig)) = sig
+        getSig _ = error "This should not happen."
 
 testArmorEncode :: [FilePath] -> FilePath -> Assertion
 testArmorEncode fps target = do
@@ -83,6 +89,7 @@ testStrictEncode fp = do
     let fakearmors = [Armor ArmorMessage [("Version","OpenPrivacy 0.99")] bs, ClearSigned [("Hash","SHA1")] bs (Armor ArmorSignature [("Version","OpenPrivacy 0.99")] bs)]
     assertEqual ("strict encode") (encodeLazy fakearmors) (BL.fromChunks [(encode fakearmors)])
 
+tests :: [Test]
 tests = [
    testGroup "CRC24" [
       testCase "CRC24: A" (testCRC24 (BC8.pack "A") 16680698)
@@ -105,4 +112,5 @@ tests = [
     ]
  ]
 
+main :: IO ()
 main = defaultMain tests