fix pipe keyword

anoma · Jul 2, 2024 · 604d7c4 · 604d7c4
1 parent 2b5d5de
commit 604d7c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Juvix/Compiler/Concrete/Translation/FromSource.hs b/src/Juvix/Compiler/Concrete/Translation/FromSource.hs
@@ -1195,7 +1195,7 @@ ifBranch = do
     pipeHelper :: ParsecS r KeywordRef
     pipeHelper = case sing :: SIfBranchKind k of
       SBranchIfBool -> P.try (kw kwPipe <* P.notFollowedBy (kw kwElse))
-      SBranchIfElse -> kw kwElse
+      SBranchIfElse -> kw kwPipe
 
 multiwayIf :: (Members '[ParserResultBuilder, PragmasStash, JudocStash] r) => ParsecS r (If 'Parsed)
 multiwayIf = do