diff --git a/Language/Haskell/GhcMod/Info.hs b/Language/Haskell/GhcMod/Info.hs
index 66ac8a5..d79d0b6 100644
--- a/Language/Haskell/GhcMod/Info.hs
+++ b/Language/Haskell/GhcMod/Info.hs
@@ -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