diff options
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index e3d174e..619543f 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -64,7 +64,7 @@ parseTestDefinition = label "test definition" $ toplevel ToplevelTest $ do name <- try $ identifier <* osymbol ":" case name of "tag" -> do - Just <$> typedExpr <* eol <* scn + Just <$> typedExpr FunctionTerm <* eol <* scn _ -> do registerParseError $ FancyError off $ S.singleton $ ErrorFail $ "unexpected test metadata ‘" <> T.unpack name <> "’" @@ -89,7 +89,7 @@ parseDefinition href = label "symbol definition" $ do SomeExpr <$> testBlock ref , do osymbol "=" - someExpr <* eol + someExpr FunctionTerm <* eol ] scn atypes' <- getInferredTypes atypes |