[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / GHC_ONLY / io010 / Main.hs
index 5e5b0c3..7fa0327 100644 (file)
@@ -1,4 +1,4 @@
-import LibDirectory (getCurrentDirectory, setCurrentDirectory, 
+import Directory (getCurrentDirectory, setCurrentDirectory, 
                      createDirectory, removeDirectory, getDirectoryContents)
 
 main =
@@ -11,10 +11,10 @@ main =
         removeDirectory "foo" >>
         putStr "Okay\n"
     else
-        fail "Oops"
+        fail (userError "Oops")
 
 
 dot :: String -> Bool
 dot "." = True
 dot ".." = True
-dot _ = False
\ No newline at end of file
+dot _ = False