Handle wildcards in expr/type
parent
46119abd1e
commit
214653bee5
|
@ -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
|
||||||
|
|
|
@ -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 "_"
|
||||||
|
|
Loading…
Reference in New Issue