hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

defining errorMsgSpan.

Browse Source
This commit is contained in:
Kazu Yamamoto
2013-11-19 12:28:59 +09:00
parent beaf3c0a4e
commit 7fbd983172
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Language/Haskell/GhcMod/Gap.hs
View File

@@ -19,6 +19,7 @@ module Language.Haskell.GhcMod.Gap (
, infoThing
, pprInfo
, HasType(..)
, errorMsgSpan
#if __GLASGOW_HASKELL__ >= 702
#else
, module Pretty
@@ -280,3 +281,12 @@ pprInfo pefas (thing, fixity, insts)
| otherwise = ppr fx <+> ppr (getName thing)
#endif
----------------------------------------------------------------
----------------------------------------------------------------
errorMsgSpan :: ErrMsg -> SrcSpan
#if __GLASGOW_HASKELL__ >= 707
errorMsgSpan = errMsgSpan
#else
errorMsgSpan = head . errMsgSpans
#endif