defining typeForUser.

2013-11-19 12:35:42 +09:00
parent 7fbd983172
commit 13738d4391
2 changed files with 9 additions and 6 deletions
--- a/Language/Haskell/GhcMod/Gap.hs
+++ b/Language/Haskell/GhcMod/Gap.hs
@@ -20,6 +20,7 @@ module Language.Haskell.GhcMod.Gap (
  , pprInfo
  , HasType(..)
  , errorMsgSpan
+  , typeForUser
 #if __GLASGOW_HASKELL__ >= 702
 #else
  , module Pretty
@@ -290,3 +291,10 @@ errorMsgSpan = errMsgSpan
 #else
 errorMsgSpan = head . errMsgSpans
 #endif
+
+typeForUser :: Type -> SDoc
+#if __GLASGOW_HASKELL__ >= 707
+typeForUser = pprTypeForUser
+#else
+typeForUser = pprTypeForUser False
+#endif