From 0f035faf3c7b767f98d4ad9f6bd3884c6b025ab6 Mon Sep 17 00:00:00 2001 From: Taylor Fausak Date: Tue, 2 Nov 2021 02:16:49 +0000 Subject: [PATCH] Fix matching of `LastStmt` --- src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs index 9971979..14be015 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs @@ -34,7 +34,7 @@ layoutStmt lstmt@(L _ stmt) = do indentAmount :: Int <- mAsk <&> _conf_layout .> _lconfig_indentAmount .> confUnpack docWrapNode lstmt $ case stmt of - LastStmt _ body (Just False) _ -> do + LastStmt _ body Nothing _ -> do layoutExpr body BindStmt _ lPat expr -> do patDoc <- fmap return $ colsWrapPat =<< layoutPat lPat