Fix warning

lspitzner · Dec 19, 2017 · ce7ec0b · ce7ec0b
1 parent 162b6e6
commit ce7ec0b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 $