From fd724f706a79df5861c74982cb0e4ac17787a6bf Mon Sep 17 00:00:00 2001 From: Scott Santucci Date: Mon, 9 Oct 2023 08:00:29 -0400 Subject: [PATCH] Fix as-pattern for GHC 9 --- src/LambdaCube/Compiler/Lexer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/LambdaCube/Compiler/Lexer.hs b/src/LambdaCube/Compiler/Lexer.hs index 29b88930..f08e85a0 100644 --- a/src/LambdaCube/Compiler/Lexer.hs +++ b/src/LambdaCube/Compiler/Lexer.hs @@ -318,7 +318,7 @@ calcPrec calcPrec app getFixity = compileOps [] where compileOps [] e [] = return e - compileOps acc@ ~((op', e'): acc') e es@ ~((op, e''): es') + compileOps acc@(~((op', e'): acc')) e es@(~((op, e''): es')) | c == LT || c == EQ && isInfixL f && isInfixL f' = compileOps acc' (app op' e' e) es | c == GT || c == EQ && isInfixR f && isInfixR f' = compileOps ((op, e): acc) e'' es' | otherwise = throwError (op', op) -- operator mismatch