1
1
mirror of https://github.com/github/semantic.git synced 2024-11-23 16:37:50 +03:00

Less strict evaluation of the edit script.

This commit is contained in:
Rob Rix 2017-06-21 13:45:16 -04:00
parent d71f97d1b5
commit 8a2c0bf6c2

View File

@ -14,7 +14,7 @@ import Prologue hiding (error)
-- | An edit script, i.e. a sequence of changes/copies of elements.
type EditScript a b = [These a b]
data Endpoint a b = Endpoint { x :: {-# UNPACK #-} !Int, _y :: {-# UNPACK #-} !Int, _script :: !(EditScript a b) }
data Endpoint a b = Endpoint { x :: {-# UNPACK #-} !Int, _y :: {-# UNPACK #-} !Int, _script :: EditScript a b }
deriving (Eq, Show)