{-# LANGUAGE CPP #-}
#if __GLASGOW_HASKELL__ >= 810
module NriPrelude.Plugin.GhcVersionDependent (
module GHC.Hs,
isQualified,
mkQualified,
) where
import GHC.Hs
import Prelude
isQualified :: ImportDecl pass -> Bool
isQualified :: ImportDecl pass -> Bool
isQualified ImportDecl pass
imp =
case ImportDecl pass -> ImportDeclQualifiedStyle
forall pass. ImportDecl pass -> ImportDeclQualifiedStyle
ideclQualified ImportDecl pass
imp of
ImportDeclQualifiedStyle
QualifiedPre -> Bool
True
ImportDeclQualifiedStyle
QualifiedPost -> Bool
True
ImportDeclQualifiedStyle
NotQualified -> Bool
False
mkQualified :: ImportDeclQualifiedStyle
mkQualified :: ImportDeclQualifiedStyle
mkQualified = ImportDeclQualifiedStyle
QualifiedPre
#else
module NriPrelude.Plugin.GhcVersionDependent (
module HsSyn,
isQualified,
mkQualified,
) where
import HsSyn
import Prelude
isQualified :: ImportDecl pass -> Bool
isQualified = ideclQualified
mkQualified :: Bool
mkQualified = True
#endif