diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs index bf87b6d..3daf877 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs @@ -93,7 +93,7 @@ layoutLLIEs llies = docWrapNodeRest llies $ do ieDs <- layoutAnnAndSepLLIEs llies case ieDs of [] -> docLit $ Text.pack "()" - ieDs@(ieDsH:ieDsT) -> + (ieDsH:ieDsT) -> docAlt [ docSeq $ docLit (Text.pack "("):ieDs ++ [docParenR] , docLines $