From 8af1abacf899be128c3b195696b24c9fc81bc282 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 18 Oct 2007 12:17:55 +0000 Subject: [PATCH] import System.Directory, not Directory --- tests/currentDirectory001.hs | 2 +- tests/directory001.hs | 5 ++--- tests/getDirContents001.hs | 4 ++-- tests/getPermissions001.hs | 2 +- 4 files changed, 6 insertions(+), 7 deletions(-) diff --git a/tests/currentDirectory001.hs b/tests/currentDirectory001.hs index bcf9b96..d8ca7b3 100644 --- a/tests/currentDirectory001.hs +++ b/tests/currentDirectory001.hs @@ -1,4 +1,4 @@ -import Directory (getCurrentDirectory, setCurrentDirectory, +import System.Directory (getCurrentDirectory, setCurrentDirectory, createDirectory, removeDirectory, getDirectoryContents) main = do diff --git a/tests/directory001.hs b/tests/directory001.hs index c04a015..5abfbdc 100644 --- a/tests/directory001.hs +++ b/tests/directory001.hs @@ -1,6 +1,5 @@ -import IO - -import Directory +import System.IO +import System.Directory main = do createDirectory "foo" diff --git a/tests/getDirContents001.hs b/tests/getDirContents001.hs index 1c0e3f8..9f35351 100644 --- a/tests/getDirContents001.hs +++ b/tests/getDirContents001.hs @@ -1,5 +1,5 @@ -import Directory (getDirectoryContents) -import List (sort, isPrefixOf, isSuffixOf) +import System.Directory (getDirectoryContents) +import Data.List (sort, isPrefixOf, isSuffixOf) main = do names <- getDirectoryContents "." diff --git a/tests/getPermissions001.hs b/tests/getPermissions001.hs index 0c435df..f1fbeaa 100644 --- a/tests/getPermissions001.hs +++ b/tests/getPermissions001.hs @@ -1,4 +1,4 @@ -import Directory +import System.Directory main = do p <- getPermissions "." -- 1.7.10.4