Compat.hs

{-# LANGUAGE CPP #-}

-- | Compatibility shim for GHC 7.8 support. Remove once 7.8 is no
-- longer supported.

#if MIN_VERSION_base(4,8,0)

module GHC.SrcLoc.Compat (module GHC.SrcLoc) where
import GHC.SrcLoc

#else

module GHC.SrcLoc.Compat {-# WARNING "This version of GHC does not support SrcLoc; using a stub interface for compatibility" #-} (module GHC.SrcLoc.Compat) where

data SrcLoc

srcLocFile :: SrcLoc -> String
srcLocFile _ = ""

srcLocStartLine :: SrcLoc -> Int
srcLocStartLine _ = 0

srcLocStartCol :: SrcLoc -> Int
srcLocStartCol _ = 0

#endif