diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/lib/libposix/posix013.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/lib/libposix/posix013.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/testsuite/tests/ghc-regress/lib/libposix/posix013.hs b/testsuite/tests/ghc-regress/lib/libposix/posix013.hs deleted file mode 100644 index b78930b44e..0000000000 --- a/testsuite/tests/ghc-regress/lib/libposix/posix013.hs +++ /dev/null @@ -1,21 +0,0 @@ ---!! Querying for system information. -module Main(main) where - -import Posix - -main = do - sid <- getSystemID - let - info = - [ "Node Name: " , nodeName sid - , "OS: " , systemName sid - , "Arch: " , machine sid - , "Version: " , version sid - , "Release: " , release sid - ] - putStrLn2 info - -putStrLn2 :: [String] -> IO () -putStrLn2 [] = return () -putStrLn2 [x] = putStrLn x -putStrLn2 (x1:x2:xs) = putStrLn (x1++x2) >> putStrLn2 xs |