[commit: directory] master: remove type signatures in comments, they bitrot (#6142) (97609dc)
Simon Marlow
marlowsd at gmail.com
Thu Jun 7 17:59:40 CEST 2012
Repository : ssh://darcs.haskell.org//srv/darcs/packages/directory
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/97609dcba36b84eded0f461883f07dc35aea9e87
>---------------------------------------------------------------
commit 97609dcba36b84eded0f461883f07dc35aea9e87
Author: Simon Marlow <marlowsd at gmail.com>
Date: Thu Jun 7 15:01:21 2012 +0100
remove type signatures in comments, they bitrot (#6142)
>---------------------------------------------------------------
System/Directory.hs | 40 ++++++++++++++++++++--------------------
1 files changed, 20 insertions(+), 20 deletions(-)
diff --git a/System/Directory.hs b/System/Directory.hs
index 9bc8372..18eeba6 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -23,17 +23,17 @@ module System.Directory
-- $intro
-- * Actions on directories
- createDirectory -- :: FilePath -> IO ()
+ createDirectory
#ifndef __NHC__
- , createDirectoryIfMissing -- :: Bool -> FilePath -> IO ()
+ , createDirectoryIfMissing
#endif
- , removeDirectory -- :: FilePath -> IO ()
- , removeDirectoryRecursive -- :: FilePath -> IO ()
- , renameDirectory -- :: FilePath -> FilePath -> IO ()
+ , removeDirectory
+ , removeDirectoryRecursive
+ , renameDirectory
- , getDirectoryContents -- :: FilePath -> IO [FilePath]
- , getCurrentDirectory -- :: IO FilePath
- , setCurrentDirectory -- :: FilePath -> IO ()
+ , getDirectoryContents
+ , getCurrentDirectory
+ , setCurrentDirectory
-- * Pre-defined directories
, getHomeDirectory
@@ -42,9 +42,9 @@ module System.Directory
, getTemporaryDirectory
-- * Actions on files
- , removeFile -- :: FilePath -> IO ()
- , renameFile -- :: FilePath -> FilePath -> IO ()
- , copyFile -- :: FilePath -> FilePath -> IO ()
+ , removeFile
+ , renameFile
+ , copyFile
, canonicalizePath
, makeRelativeToCurrentDirectory
@@ -52,8 +52,8 @@ module System.Directory
, findFile
-- * Existence tests
- , doesFileExist -- :: FilePath -> IO Bool
- , doesDirectoryExist -- :: FilePath -> IO Bool
+ , doesFileExist
+ , doesDirectoryExist
-- * Permissions
@@ -61,22 +61,22 @@ module System.Directory
, Permissions
, emptyPermissions
- , readable -- :: Permissions -> Bool
- , writable -- :: Permissions -> Bool
- , executable -- :: Permissions -> Bool
- , searchable -- :: Permissions -> Bool
+ , readable
+ , writable
+ , executable
+ , searchable
, setOwnerReadable
, setOwnerWritable
, setOwnerExecutable
, setOwnerSearchable
- , getPermissions -- :: FilePath -> IO Permissions
- , setPermissions -- :: FilePath -> Permissions -> IO ()
+ , getPermissions
+ , setPermissions
, copyPermissions
-- * Timestamps
- , getModificationTime -- :: FilePath -> IO UTCTime
+ , getModificationTime
) where
import Prelude hiding ( catch )
More information about the Cvs-libraries
mailing list