{- This module (which needs to be expanded by ./configure) contains flags
   which (via Template Haskell) control compilation. -}
module CompileFlags where

ghcShortVersion :: Int 
ghcShortVersion = @GhcShortVersion@

osTitle :: String
osTitle = "@OSTITLE@"

isWindows :: Bool
isWindows = (@WINDOWS@ /= 0)

isDebug :: Bool
isDebug = True -- set this manually, until we find a better way.

uniVersion :: String
uniVersion = "@UNIVERSION@"

idVar = [| id |] 
   -- This is a useful way of breaking incorrect type-errors
   -- in unused splices.