just style.

This commit is contained in:
Kazu Yamamoto 2014-04-11 12:21:58 +09:00
parent 862e8c397c
commit 3ed59464f0

View File

@ -49,8 +49,8 @@ info opt cradle file expr =
inModuleContext opt cradle file exprToInfo "Cannot show info"
where
exprToInfo = do
sdoc <- Gap.infoThing expr
dflag <- G.getSessionDynFlags
sdoc <- Gap.infoThing expr
style <- getStyle
return $ showPage dflag style sdoc