From ce7ec0b4679d5fd3cb8a2e51a67752d34dd2390b Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Tue, 19 Dec 2017 17:52:33 +0100 Subject: [PATCH] Fix warning --- src/Language/Haskell/Brittany/Internal/Layouters/IE.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 $