1 files changed, 5 insertions, 3 deletions

diff --git a/examples/testdiff.hs b/examples/testdiff.hs
index 9360545..2847fc3 100644
--- a/examples/testdiff.hs
+++ b/examples/testdiff.hs
@@ -10,7 +10,7 @@ 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 :: XDeltaFailable XDelta
+delta :: Result VCDIFF
 delta = computeDiff defaultConfig source patched
 
 main = do
@@ -19,11 +19,13 @@ main = do
     mapM_ putStrLn $ xxd2 0 (L.toStrict patched)
     putStrLn ""
     case delta of
-        XResult δ@(XDelta d) me -> do
+        Result δ@(VCDIFF d) me -> do
             -- mapM_ (mapM_ putStrLn . xxd2 0) (chunksOf 16 d)
             mapM_ putStrLn $ xxd2 0 (L.toStrict d)
             print me
             putStrLn ""
-            let XResult patched' pe = applyPatch defaultConfig source δ
+            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)