21 lines
245 B
Haskell
21 lines
245 B
Haskell
module Types where
|
|
|
|
import Data.ByteString
|
|
import Data.Vector
|
|
|
|
type BS = ByteString
|
|
|
|
type Tok = (Bool, BS)
|
|
|
|
type TV = Vector Tok
|
|
|
|
type Diff = [(Op, Tok)]
|
|
|
|
type Hunk = ((Int, Int), Diff)
|
|
|
|
data Op
|
|
= Remove
|
|
| Keep
|
|
| Add
|
|
deriving (Show, Eq)
|