diff --git a/purescript-iso.cabal b/purescript-iso.cabal
--- a/purescript-iso.cabal
+++ b/purescript-iso.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 7622cbeb17c52f906696206c7e02f83cd6dfb3ca454388b390a2db19162a9eae
+-- hash: f4038f18ba75b88812be78b2c549bc675c9030d7f07ee94fd0a66eebebca5c7f
 
 name:           purescript-iso
-version:        0.0.1.9
+version:        0.0.1.10
 synopsis:       Isomorphic trivial data type definitions over JSON
 description:    Please see the README on GitHub at <https://github.com/githubuser/purescript-iso#readme>
 category:       Web
diff --git a/src/Test/Serialization/Types.hs b/src/Test/Serialization/Types.hs
--- a/src/Test/Serialization/Types.hs
+++ b/src/Test/Serialization/Types.hs
@@ -570,7 +570,8 @@
                 let serverG'' = serialize serverG'
                 if serverG'' /= clientS'
                   then do
-                    putStrLn $ "Diff: " ++ show (diff serverG'' clientS')
+                    putStrLn $ "Diff: serverG-clientS: " ++ show (diff serverG'' clientS')
+                    putStrLn $ "      clientS-serverG: " ++ show (diff clientS' serverG'')
                     pure $ ServerSerializedMismatch serverG'' clientS' (encode serverG'') (encode clientS')
                   else ServerSerializedMatch <$> x clientS'
       serverDMatch :: IO _ -> Value -> IO (HasServerD (DesValue (ServerDeSerializedMatch _)))
@@ -597,7 +598,8 @@
                 let clientG'' = serialize clientG'
                 if clientG'' /= serverS'
                   then do
-                    putStrLn $ "Diff: " ++ show (diff clientG'' serverS')
+                    putStrLn $ "Diff: clientG-serverS: " ++ show (diff clientG'' serverS')
+                    putStrLn $ "      serverS-clientG: " ++ show (diff serverS' clientG'')
                     pure $ ClientSerializedMismatch clientG'' serverS' (encode clientG'') (encode serverS')
                   else ClientSerializedMatch <$> x serverS'
       clientDMatch :: Value -> IO (HasClientD (DesValue (ClientDeSerializedMatch ())))