Whitespace and modernise some tests
authorIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 23:46:51 +0000 (23:46 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 23:46:51 +0000 (23:46 +0000)
tests/System/getArgs001.hs
tests/System/getEnv001.hs
tests/System/system001.hs

index 4b8df91..8441fb7 100644 (file)
@@ -1,9 +1,8 @@
 import System.Environment (getProgName, getArgs)
 
-main = 
-    getProgName >>= \ argv0 ->
-    putStr argv0 >>
-    getArgs >>= \ argv ->
-    sequence (map (\ x -> putChar ' ' >> putStr x) argv) >>
-    putChar '\n'
+main = do argv0 <- getProgName
+          putStr argv0
+          argv <- getArgs
+          mapM_ (\ x -> putChar ' ' >> putStr x) argv
+          putChar '\n'
 
index 745f8ea..b30db0f 100644 (file)
@@ -12,4 +12,4 @@ main = do
 getEnv_except :: IOError -> IO String
 getEnv_except ioe
  | isDoesNotExistError ioe = return ""
- | otherwise              = ioError ioe
+ | otherwise               = ioError ioe
index 4237d52..7d5c0bd 100644 (file)
@@ -3,12 +3,16 @@
 import System.Cmd (system)
 import System.Exit (ExitCode(..), exitWith)
 
-main = 
-    system "cat dog 1>/dev/null 2>&1" >>= \ ec ->
-    case ec of
-        ExitSuccess   -> putStr "What?!?\n" >> ioError (userError "dog succeeded")
-        ExitFailure _ ->
-            system "cat system001.hs 2>/dev/null" >>= \ ec ->
-           case ec of
-               ExitSuccess   -> exitWith ExitSuccess
-               ExitFailure _ -> putStr "What?!?\n" >> ioError (userError "cat failed")
+main = do ec <- system "cat dog 1>/dev/null 2>&1"
+          case ec of
+              ExitSuccess ->
+                  do putStr "What?!?\n"
+                     ioError (userError "dog succeeded")
+              ExitFailure _ ->
+                  do ec <- system "cat system001.hs 2>/dev/null"
+                     case ec of
+                         ExitSuccess ->
+                             exitWith ExitSuccess
+                         ExitFailure _ ->
+                             do putStr "What?!?\n"
+                                ioError (userError "cat failed")