diff --git a/src/Juvix/Compiler/Concrete/Translation/FromSource.hs b/src/Juvix/Compiler/Concrete/Translation/FromSource.hs index f48eb97e0c..82f65ab1c0 100644 --- 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