diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-01 22:41:08 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-01 22:41:08 +0100 |
| commit | b7f1f58d246d0fb61bfd954e0638c27da1460a03 (patch) | |
| tree | e668d2b9c027df37c7d0cd42e0a6a2cfe2b1f8bb /src/Parser.hs | |
| parent | 97ebb614aa7f9d79bfbeabcfb1107bc88c8c5f3f (diff) | |
| download | micro-lang-hs-b7f1f58d246d0fb61bfd954e0638c27da1460a03.tar.gz micro-lang-hs-b7f1f58d246d0fb61bfd954e0638c27da1460a03.zip | |
Use the position of the ident
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index f341bc2..de8cce0 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -118,9 +118,8 @@ call = do var :: Parser Expr var = do - pos <- getPosition reserved "var" - (ident, typ, _) <- arg + (ident, typ, pos) <- arg reservedOp "=" <?> "assignation" value <- expr reservedOp ";" |