RlpcError -> IsRlpcError
This commit is contained in:
@@ -49,7 +49,7 @@ data TypeError
|
||||
deriving (Show, Eq)
|
||||
|
||||
-- TODO:
|
||||
instance RlpcError TypeError where
|
||||
instance IsRlpcError TypeError where
|
||||
|
||||
-- | Synonym for @Errorful [TypeError]@. This means an @HMError@ action may
|
||||
-- throw any number of fatal or nonfatal errors. Run with @runErrorful@.
|
||||
|
||||
@@ -199,10 +199,10 @@ data ParseError = ParErrLexical String
|
||||
deriving Show
|
||||
|
||||
-- TODO:
|
||||
instance RlpcError SrcError where
|
||||
instance IsRlpcError SrcError where
|
||||
|
||||
-- TODO:
|
||||
instance RlpcError ParseError where
|
||||
instance IsRlpcError ParseError where
|
||||
|
||||
alexEOF :: Alex (Located CoreToken)
|
||||
alexEOF = Alex $ \ st@(AlexState { alex_pos = AlexPn _ y x }) ->
|
||||
|
||||
Reference in New Issue
Block a user