examples/testdiff.hs


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

{-# LANGUAGE OverloadedStrings #-}

import qualified Data.ByteString.Lazy as L
import Data.XDelta
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."

delta :: XDeltaFailable XDelta
delta = computeDiff defaultConfig source patched

main = do
    mapM_ putStrLn $ xxd2 0 (L.toStrict source)
    putStrLn ""
    mapM_ putStrLn $ xxd2 0 (L.toStrict patched)
    putStrLn ""
    case delta of
        XResult δ@(XDelta 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 δ
            mapM_ putStrLn $ xxd2 0 (L.toStrict patched') -- $ L.take 48 patched')
            print pe