just style.
This commit is contained in:
parent
862e8c397c
commit
3ed59464f0
@ -49,8 +49,8 @@ info opt cradle file expr =
|
|||||||
inModuleContext opt cradle file exprToInfo "Cannot show info"
|
inModuleContext opt cradle file exprToInfo "Cannot show info"
|
||||||
where
|
where
|
||||||
exprToInfo = do
|
exprToInfo = do
|
||||||
|
sdoc <- Gap.infoThing expr
|
||||||
dflag <- G.getSessionDynFlags
|
dflag <- G.getSessionDynFlags
|
||||||
sdoc <- Gap.infoThing expr
|
|
||||||
style <- getStyle
|
style <- getStyle
|
||||||
return $ showPage dflag style sdoc
|
return $ showPage dflag style sdoc
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user