@@ -57,7 +57,7 @@ getPackage = do
57 pushd packageDir preparePackage
57 pushd packageDir preparePackage
59data TestResult
59data TestResult
60− = ParseFailed (ParseError PackageError)
60+ = ParseFailed String
61 | Mismatch ByteString ByteString -- ^ encoding before, encoding after
61 | Mismatch ByteString ByteString -- ^ encoding before, encoding after
62 | Pass ByteString
62 | Pass ByteString
63 deriving (Show)
63 deriving (Show)
@@ -70,10 +70,10 @@ test = roundTrip <$> getPackage
70roundTrip :: UploadedPackage -> TestResult
70roundTrip :: UploadedPackage -> TestResult
71roundTrip pkg =
71roundTrip pkg =
72 let before = A.encode pkg
72 let before = A.encode pkg
73− in case parse asUploadedPackage before of
73+ in case A.eitherDecode before of
74 Left err -> ParseFailed err
74 Left err -> ParseFailed err
75 Right parsed -> do
75 Right parsed -> do
76− let after = A.encode parsed
76+ let after = A.encode (parsed :: UploadedPackage)
77 if before == after
77 if before == after
78 then Pass before
78 then Pass before
79 else Mismatch before after
79 else Mismatch before after