1 files changed, 31 insertions, 0 deletions

diff --git a/haskell/examples/testdiff.hs b/haskell/examples/testdiff.hs
new file mode 100644
index 0000000..7e20dc5
--- /dev/null
+++ b/haskell/examples/testdiff.hs
@@ -0,0 +1,31 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import qualified Data.ByteString.Lazy as L
+import Data.VCDIFF
+import Text.XXD
+
+source :: L.ByteString
+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."
+
+delta :: Result VCDIFF
+delta = computeDiff defaultConfig source patched
+
+main = do
+    mapM_ putStrLn $ xxd2 0 (L.toStrict source)
+    putStrLn ""
+    mapM_ putStrLn $ xxd2 0 (L.toStrict patched)
+    putStrLn ""
+    case delta of
+        Result δ@(VCDIFF d) me -> do
+            -- mapM_ (mapM_ putStrLn . xxd2 0) (chunksOf 16 d)
+            mapM_ putStrLn $ xxd2 0 (L.toStrict d)
+            print me
+            putStrLn ""
+            let Result patched' pe = applyPatch defaultConfig source δ
+            mapM_ putStrLn $ xxd2 0 (L.toStrict patched') -- $ L.take 48 patched')
+            print pe
+            print ("source",source)
+            print ("patched",patched)