Handle wildcards in expr/type

2016-08-07 14:26:27 +02:00 · 2016-08-07 14:26:27 +02:00 · 214653bee5
parent 46119abd1e
commit 214653bee5
2 changed files with 3 additions and 4 deletions
--- 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
--- 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 "_"