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

Unfreeze notFollowedBy.

Browse Source
This commit is contained in:
Rob Rix 2017-08-14 13:46:14 -04:00
parent e32c566774
commit e97b3e6fc6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Syntax/Assignment.hs
View File

@ -350,7 +350,7 @@ instance (Ix grammar, Show grammar) => Parsing (Assignment ast grammar) where
eof = withFrozenCallStack $ End `Then` return
notFollowedBy :: (HasCallStack, Show a) => Assignment ast grammar a -> Assignment ast grammar ()
notFollowedBy a = withFrozenCallStack $ a *> unexpected (show a) <|> pure ()
notFollowedBy a = a *> unexpected (show a) <|> pure ()
instance MonadError (Error (Either String grammar)) (Assignment ast grammar) where
throwError :: HasCallStack => Error (Either String grammar) -> Assignment ast grammar a