Handle wildcards in expr/type

pull/3/head
Lennart Spitzner 2016-08-07 14:26:27 +02:00
parent 46119abd1e
commit 214653bee5
2 changed files with 3 additions and 4 deletions

View File

@ -687,8 +687,7 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
-- TODO -- TODO
briDocByExact lexpr briDocByExact lexpr
EWildPat{} -> do EWildPat{} -> do
-- TODO docLit $ Text.pack "_"
briDocByExact lexpr
EAsPat{} -> do EAsPat{} -> do
-- TODO -- TODO
briDocByExact lexpr briDocByExact lexpr

View File

@ -575,5 +575,5 @@ layoutType ltype@(L _ typ) = docWrapNode ltype $ case typ of
briDocByExact ltype briDocByExact ltype
HsCoreTy{} -> -- TODO HsCoreTy{} -> -- TODO
briDocByExact ltype briDocByExact ltype
HsWildCardTy{} -> -- TODO HsWildCardTy _ ->
briDocByExact ltype docLit $ Text.pack "_"