shithub: MicroHs

ref: a5afc67963c06c32c3cae99f558c261c71317595
dir: /lib/System/Info.hs/

View raw version 
module System.Info(os, arch, compilerName, compilerVersion, fullCompilerVersion) where
import Data.Char
import Data.Version(Version(..))
import System.Directory
import System.IO
import System.Process
import System.IO.Unsafe

os :: String
os = if _isWindows then "windows" else uname "-s"

arch :: String
arch = if _isWindows then "x86_64" else uname "-m"

compilerName :: String
compilerName = "mhs"

compilerVersion :: Version
compilerVersion = Version [0,9]

fullCompilerVersion :: Version
fullCompilerVersion = Version [0,9,0]

-- Assume the system has an uname command
uname :: String -> String
uname flag = unsafePerformIO $ do
  (fn, h) <- openTmpFile "uname"
  hClose h
  callCommand $ "uname " ++ flag ++ " >" ++ fn
  res <- readFile fn
  removeFile fn
  return $ map toLower $ filter (not . isSpace) res