Fix warning

2017-12-19 17:52:33 +01:00 · 2017-12-19 17:52:33 +01:00 · ce7ec0b467
parent 162b6e6bfd
commit ce7ec0b467
1 changed files with 1 additions and 1 deletions
--- 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 $