diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-11-01 21:05:35 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-11-01 21:05:39 +0000 |
commit | a00bf11df94e929aadc6d64792801cf3de58a601 (patch) | |
tree | 0f1d3f6a786e914c8a63a33a4984ca641ecc4b2d | |
parent | 7dc71b1f665d5a4a33b40a75ffe85c28fde827f1 (diff) | |
download | gsa-parser-a00bf11df94e929aadc6d64792801cf3de58a601.tar.gz gsa-parser-a00bf11df94e929aadc6d64792801cf3de58a601.zip |
Fix compilation issues
-rw-r--r-- | src/GSA/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GSA/Parser.hs b/src/GSA/Parser.hs index 9b25321..1292609 100644 --- a/src/GSA/Parser.hs +++ b/src/GSA/Parser.hs @@ -95,7 +95,7 @@ comparisonParser = compParser :: (Comparison -> Condition) -> Text -> Parser (Condition, [Reg]) compParser f t = do r1 <- regParser - comp <- comparisonParser >> symbol t + comp <- comparisonParser <* symbol t r2 <- regParser return $ (f comp, [r1, r2]) |