1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
{-# LANGUAGE CPP #-} module GF.Infra.BuildInfo where import System.Info import Data.Version(showVersion) buildInfo = "Built on "++os++"/"++arch ++" with "++compilerName++"-"++showVersion compilerVersion ++", flags:" #ifdef USE_INTERRUPT ++" interrupt" #endif #ifdef SERVER_MODE ++" server" #endif