diff options
| -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 517aa27..35f28c5 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -260,10 +260,10 @@ someExpr = join inner <?> "expression" maybe err return $ listToMaybe $ catMaybes $ map (\(SomeBinOp op) -> SomeExpr <$> applyBinOp op e f) ops recordSelector :: Operator TestParser (TestParser SomeExpr) - recordSelector = Postfix $ do + recordSelector = Postfix $ fmap (foldl1 (flip (.))) $ some $ do void $ osymbol "." off <- stateOffset <$> getParserState - VarName m <- varName + m <- identifier return $ \p -> do SomeExpr e <- p let err = parseError $ FancyError off $ S.singleton $ ErrorFail $ T.unpack $ T.concat |