summaryrefslogtreecommitdiff
path: root/haskell/examples/testdiff.hs
diff options
context:
space:
mode:
Diffstat (limited to 'haskell/examples/testdiff.hs')
-rw-r--r--haskell/examples/testdiff.hs19
1 files changed, 6 insertions, 13 deletions
diff --git a/haskell/examples/testdiff.hs b/haskell/examples/testdiff.hs
index 08229d3..d2b99f5 100644
--- a/haskell/examples/testdiff.hs
+++ b/haskell/examples/testdiff.hs
@@ -25,10 +25,6 @@ delta3 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target
25delta4 :: Result VCDIFF 25delta4 :: Result VCDIFF
26delta4 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target 26delta4 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target
27 27
28delta5 :: Result VCDIFF
29delta5 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target
30
31
32 28
33dump title bs kont = do 29dump title bs kont = do
34 putStrLn title 30 putStrLn title
@@ -38,17 +34,14 @@ dump title bs kont = do
38main = do 34main = do
39 dump "source" source $ putStrLn "" 35 dump "source" source $ putStrLn ""
40 dump "target" target $ putStrLn "" 36 dump "target" target $ putStrLn ""
41 go source "XD3_ADLER32" delta3
42 go source "XD3_ADLER32" delta4
43 go source "XD3_ADLER32" delta5
44 go source "default" delta 37 go source "default" delta
45 go source "default" delta2 38 go source "default" delta2
46 {- 39 go source2 "default2" delta
47 go source2 "default" delta 40 go source2 "default2" delta2
48 go source2 "default" delta2 41 go source "XD3_ADLER32" delta3
49 go source2 "XD3_ADLER32" delta3 42 go source2 "XD3_ADLER32-2" delta3
50 go source2 "XD3_ADLER32" delta4 43 go source "XD3_ADLER32" delta4
51 -} 44 go source2 "XD3_ADLER32-2"delta4
52 print source 45 print source
53 print source2 46 print source2
54 print target 47 print target