github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
Code Issues Projects Releases Wiki Activity

Derive a Typeable instance for Error.

Browse Source
This commit is contained in:
Rob Rix 2017-08-29 17:33:19 -04:00 committed by joshvera
parent bc6292e966
commit 8801b21c77
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Error.hs
View File

@ -10,10 +10,12 @@ import Data.List.NonEmpty (nonEmpty)
import Data.Semigroup
import Data.Source
import Data.Span
import Data.Typeable
import GHC.Stack
import System.Console.ANSI
data Error grammar = HasCallStack => Error { errorSpan :: Span, errorExpected :: [grammar], errorActual :: Maybe grammar }
deriving (Typeable)
deriving instance Eq grammar => Eq (Error grammar)
deriving instance Foldable Error