From 214653bee53041e92936d90409968941fa2351ae Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Sun, 7 Aug 2016 14:26:27 +0200
Subject: [PATCH] Handle wildcards in expr/type

---
 src/Language/Haskell/Brittany/Layouters/Expr.hs | 3 +--
 src/Language/Haskell/Brittany/Layouters/Type.hs | 4 ++--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/Language/Haskell/Brittany/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Layouters/Expr.hs
index 8873e64..a4562cf 100644
--- a/src/Language/Haskell/Brittany/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Layouters/Expr.hs
@@ -687,8 +687,7 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
     -- TODO
     briDocByExact lexpr
   EWildPat{} -> do
-    -- TODO
-    briDocByExact lexpr
+    docLit $ Text.pack "_"
   EAsPat{} -> do
     -- TODO
     briDocByExact lexpr
diff --git a/src/Language/Haskell/Brittany/Layouters/Type.hs b/src/Language/Haskell/Brittany/Layouters/Type.hs
index 8f942f9..8c4e36b 100644
--- a/src/Language/Haskell/Brittany/Layouters/Type.hs
+++ b/src/Language/Haskell/Brittany/Layouters/Type.hs
@@ -575,5 +575,5 @@ layoutType ltype@(L _ typ) = docWrapNode ltype $ case typ of
     briDocByExact ltype
   HsCoreTy{} -> -- TODO
     briDocByExact ltype
-  HsWildCardTy{} -> -- TODO
-    briDocByExact ltype
+  HsWildCardTy _ ->
+    docLit $ Text.pack "_"