From 6210024d2450ecd2522583246cb3fbabc6e8cd7d Mon Sep 17 00:00:00 2001 From: mrkun Date: Sat, 12 Feb 2022 16:49:55 +0300 Subject: [PATCH] Fix Stmt --- .../Language/Haskell/Brittany/Internal/Layouters/Stmt.hs | 4 ++-- .../Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs b/source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs index 4dc0383..7ce5aed 100644 --- a/source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs +++ b/source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs @@ -19,7 +19,7 @@ import Language.Haskell.Brittany.Internal.Types -layoutStmt :: ToBriDoc' an (StmtLR GhcPs GhcPs (LHsExpr GhcPs)) +layoutStmt :: ToBriDoc' AnnListItem (StmtLR GhcPs GhcPs (LHsExpr GhcPs)) layoutStmt lstmt@(L _ stmt) = do indentPolicy <- mAsk <&> _conf_layout .> _lconfig_indentPolicy .> confUnpack indentAmount :: Int <- @@ -94,7 +94,7 @@ layoutStmt lstmt@(L _ stmt) = do $ docPar (docLit $ Text.pack "let") (docSetBaseAndIndent $ docLines $ return <$> bindDocs) - RecStmt _ stmts _ _ _ _ _ -> runFilteredAlternative $ do + RecStmt _ (L _ stmts) _ _ _ _ _ -> runFilteredAlternative $ do -- rec stmt1 -- stmt2 -- stmt3 diff --git a/source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot b/source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot index 319e4ce..0eb826b 100644 --- a/source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot +++ b/source/library/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs-boot @@ -7,4 +7,4 @@ import Language.Haskell.Brittany.Internal.Types -layoutStmt :: ToBriDoc' an (StmtLR GhcPs GhcPs (LHsExpr GhcPs)) +layoutStmt :: ToBriDoc' AnnListItem (StmtLR GhcPs GhcPs (LHsExpr GhcPs))