purescript-iso 0.0.1.9 → 0.0.1.10

raw patch · 2 files changed

+6/−4 lines, 2 files

Files

• purescript-iso.cabal +2/−2
• src/Test/Serialization/Types.hs +4/−2

@@ -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

@@ -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 ())))