From a00bf11df94e929aadc6d64792801cf3de58a601 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Mon, 1 Nov 2021 21:05:35 +0000 Subject: Fix compilation issues --- src/GSA/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]) -- cgit