{-# LANGUAGE CPP #-} module GF.Infra.BuildInfo where import System.Info import Data.Version(showVersion) {-# NOINLINE buildInfo #-} buildInfo :: [Char] buildInfo = [Char] "Built on "[Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] os[Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] "/"[Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] arch [Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] " with "[Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] compilerName[Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] "-"[Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++Version -> [Char] showVersion Version compilerVersion [Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] ", flags:" #ifdef USE_INTERRUPT [Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] " interrupt" #endif #ifdef SERVER_MODE [Char] -> [Char] -> [Char] forall a. [a] -> [a] -> [a] ++[Char] " server" #endif #ifdef NEW_COMP ++" new-comp" #endif #ifdef C_RUNTIME ++" c-runtime" #endif