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 "_"