1 files changed, 25 insertions, 5 deletions

diff --git a/haskell/examples/testdiff.hs b/haskell/examples/testdiff.hs
index 7e20dc5..3f6e3e2 100644
--- a/haskell/examples/testdiff.hs
+++ b/haskell/examples/testdiff.hs
@@ -10,22 +10,42 @@ source = "It could be said that Joe was here. I don't know what to do about it."
 patched :: L.ByteString
 patched = "It could be said that Joe, the magnificent, was here.  I don't know what to do about it."
 
+source2 :: L.ByteString
+source2 = "It could be said that Joe was absolutely here. I don't know what to do about it."
+
 delta :: Result VCDIFF
 delta = computeDiff defaultConfig source patched
 
+delta2 :: Result VCDIFF
+delta2 = computeDiff defaultConfig { flags = XD3_ADLER32 } source patched
+
 main = do
+    putStrLn "source"
     mapM_ putStrLn $ xxd2 0 (L.toStrict source)
     putStrLn ""
+    putStrLn "target"
     mapM_ putStrLn $ xxd2 0 (L.toStrict patched)
     putStrLn ""
+    case delta2 of
+        Result δ me -> do
+            let d = encodeVCDIFF δ
+            putStrLn "diff(XD3_ADLER32)"
+            mapM_ putStrLn $ xxd2 0 (L.toStrict d)
+            print me
+            putStrLn ""
+            let Result patched' pe = applyPatch defaultConfig source2 δ
+            putStrLn "patched(XD3_ADLER32)"
+            mapM_ putStrLn $ xxd2 0 (L.toStrict patched') -- $ L.take 48 patched')
+            print pe
+    putStrLn ""
     case delta of
-        Result δ@(VCDIFF d) me -> do
-            -- mapM_ (mapM_ putStrLn . xxd2 0) (chunksOf 16 d)
+        Result δ me -> do
+            let d = encodeVCDIFF δ
+            putStrLn "diff(default)"
             mapM_ putStrLn $ xxd2 0 (L.toStrict d)
             print me
             putStrLn ""
-            let Result patched' pe = applyPatch defaultConfig source δ
+            putStrLn "patched(default)"
+            let Result patched' pe = applyPatch defaultConfig source2 δ
             mapM_ putStrLn $ xxd2 0 (L.toStrict patched') -- $ L.take 48 patched')
             print pe
-            print ("source",source)
-            print ("patched",patched)