1 files changed, 4 insertions, 4 deletions

diff --git a/tests/suite.hs b/tests/suite.hs
index 3a7b7eb..a8b5a30 100644
--- a/tests/suite.hs
+++ b/tests/suite.hs
@@ -67,25 +67,25 @@ testArmorEncode :: [FilePath] -> FilePath -> Assertion
 testArmorEncode fps target = do
     bss <- mapM (\fp -> BL.readFile $ "tests/data/" ++ fp) fps
     tbs <- BL.readFile $ "tests/data/" ++ target
-    assertEqual ("literaldata") tbs (encodeLazy (map (\bs -> Armor ArmorMessage [("Version","OpenPrivacy 0.99")] bs) bss))
+    assertEqual "literaldata" tbs (encodeLazy (map (Armor ArmorMessage [("Version","OpenPrivacy 0.99")]) bss))
 
 testClearsignedEncode :: FilePath -> FilePath -> FilePath -> Assertion
 testClearsignedEncode ftxt fsig ftarget = do
     txt <- BL.readFile $ "tests/data/" ++ ftxt
     sig <- BL.readFile $ "tests/data/" ++ fsig
     target <- BL.readFile $ "tests/data/" ++ ftarget
-    assertEqual ("clearsigned encode") target (encodeLazy [ClearSigned [("Hash","SHA1")] txt (Armor ArmorSignature [("Version","OpenPrivacy 0.99")] sig)])
+    assertEqual "clearsigned encode" target (encodeLazy [ClearSigned [("Hash","SHA1")] txt (Armor ArmorSignature [("Version","OpenPrivacy 0.99")] sig)])
 
 testStrictDecode :: FilePath -> Assertion
 testStrictDecode fp = do
     bs <- BL.readFile $ "tests/data/" ++ fp
-    assertEqual ("strict decode") (decodeLazy bs :: Either String [Armor]) (decode (B.concat . BL.toChunks $ bs) :: Either String [Armor])
+    assertEqual "strict decode" (decodeLazy bs :: Either String [Armor]) (decode (B.concat . BL.toChunks $ bs) :: Either String [Armor])
 
 testStrictEncode :: FilePath -> Assertion
 testStrictEncode fp = do
     bs <- BL.readFile $ "tests/data/" ++ fp
     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)])
+    assertEqual "strict encode" (encodeLazy fakearmors) (BL.fromChunks [encode fakearmors])
 
 tests :: TestTree
 tests = testGroup "openpgp-asciiarmor" [