ajhc-0.8.0.1: src/Support/Cabal.hs

{-# LANGUAGE CPP #-}
module Support.Cabal (getDataFileNameMaybe) where
#ifdef WITH_CABAL
import Paths_ajhc (getDataFileName)
#endif

getDataFileNameMaybe :: FilePath -> IO (Maybe FilePath)
#ifdef WITH_CABAL
getDataFileNameMaybe s = do f <- getDataFileName s
                            return $ Just f
#else
getDataFileNameMaybe _ = return Nothing
#endif