ghc/tests/lib/posix/posix013.hs

   1 --!! Querying for system information.
   2 module Main(main) where
   3
   4 import Posix
   5
   6 main = do
   7   sid <- getSystemID
   8   let
   9    info =
  10     [ "Node Name: "   , nodeName sid
  11     , "OS: "          , systemName sid
  12     , "Arch: "        , machine sid
  13     , "Version: "     , version sid
  14     , "Release: "     , release sid
  15     ]
  16   putStrLn2 info
  17
  18 putStrLn2 :: [String] -> IO ()
  19 putStrLn2 []  = return ()
  20 putStrLn2 [x] = putStrLn x
  21 putStrLn2 (x1:x2:xs) = putStrLn (x1++x2) >> putStrLn2 xs