blob: c821bfa50e2ac472f2a0bfaf4d0c6556f719c11f (
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
|
{-# 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."
target :: L.ByteString
target = "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 { flags = XD3_ADLER32 } source target
delta2 :: Result VCDIFF
delta2 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target
dump title bs kont = do
putStrLn title
mapM_ putStrLn $ xxd2 0 (L.toStrict bs)
kont
main = do
dump "source" source $ putStrLn ""
dump "target" target $ putStrLn ""
go "XD3_ADLER32" delta
go "XD3_ADLER32" delta2
go flgs delta = do
putStrLn ""
case delta of
Result δ me -> do
let dif = encodeVCDIFF δ
dump ("diff("++flgs++ ")") dif $ print me >> putStrLn ""
let Result patched pe = applyPatch defaultConfig source δ
dump ("patched("++flgs++")") patched $ print pe
|