blob: 3f6e3e2e8405d34e51c5cad3f6ac4a44801847b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
{-# 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."
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 δ me -> do
let d = encodeVCDIFF δ
putStrLn "diff(default)"
mapM_ putStrLn $ xxd2 0 (L.toStrict d)
print me
putStrLn ""
putStrLn "patched(default)"
let Result patched' pe = applyPatch defaultConfig source2 δ
mapM_ putStrLn $ xxd2 0 (L.toStrict patched') -- $ L.take 48 patched')
print pe
|
