Some better output

commercialhaskell · Sep 22, 2016 · 2d14580 · 2d14580
1 parent 6b37f0c
commit 2d14580
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -244,7 +244,7 @@ main2 Opts{..} S3Cfg{..} = handle pure $ do
                                 unless (s256 == s256') $
                                     fail "sha256 mismatch"
                                 unless (m5 == m5') $
-                                    fail "sha256 mismatch"
+                                    fail "md5 mismatch"
 
                                 s3PutObject' conn thrId pkgdat ("package/" <> pkg)
 

diff --git a/src/SimpleS3.hs b/src/SimpleS3.hs
@@ -139,7 +139,7 @@ s3ListObjects1 (s3cfg@S3Cfg {..}) c pfx marker recurse = do
 
     conts <- forM conts_ $ \c ->
         case parseXML c :: Maybe ObjMetaInfo of
-            Nothing -> error $ "parseXML ObjMetaInfo failed: " ++ show c
+            Nothing -> error $ "parseXML ObjMetaInfo failed: " ++ X.showElement c
             Just x -> return x
 
     let !isTrunc = case s3xmlGetStr lbresult "IsTruncated" of