diff options
Diffstat (limited to 'haskell/examples/testdiff.hs')
-rw-r--r-- | haskell/examples/testdiff.hs | 19 |
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 | |||
25 | delta4 :: Result VCDIFF | 25 | delta4 :: Result VCDIFF |
26 | delta4 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target | 26 | delta4 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target |
27 | 27 | ||
28 | delta5 :: Result VCDIFF | ||
29 | delta5 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target | ||
30 | |||
31 | |||
32 | 28 | ||
33 | dump title bs kont = do | 29 | dump title bs kont = do |
34 | putStrLn title | 30 | putStrLn title |
@@ -38,17 +34,14 @@ dump title bs kont = do | |||
38 | main = do | 34 | main = 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 |