X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FDirectory.hsc;h=a5ef6dc5c13d608433468c14be0ff5956908e0ce;hb=b48fe6085e2465d67506347cff90116a58851008;hp=c03407d68fa1ad9d64d6d154bd52c6fd717252e1;hpb=adc02cf2e77529989959e40dd7d3afb84f7780cf;p=ghc-hetmet.git

diff --git a/ghc/lib/std/Directory.hsc b/ghc/lib/std/Directory.hsc
index c03407d..a5ef6dc 100644
--- a/ghc/lib/std/Directory.hsc
+++ b/ghc/lib/std/Directory.hsc
@@ -1,5 +1,5 @@
 -- -----------------------------------------------------------------------------
--- $Id: Directory.hsc,v 1.15 2001/08/21 08:53:22 simonmar Exp $
+-- $Id: Directory.hsc,v 1.16 2001/08/29 10:19:31 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1994-2000
 --
@@ -23,12 +23,13 @@ are relative to the current directory.
 
 module Directory 
    ( 
-      Permissions               -- abstract
-      
-    , readable                  -- :: Permissions -> Bool
-    , writable                  -- :: Permissions -> Bool
-    , executable                -- :: Permissions -> Bool
-    , searchable                -- :: Permissions -> Bool
+      Permissions		-- instance of (Eq, Ord, Read, Show)
+	( Permissions
+        , readable              -- :: Permissions -> Bool
+        , writable              -- :: Permissions -> Bool
+        , executable            -- :: Permissions -> Bool
+        , searchable            -- :: Permissions -> Bool
+	)
 
     , createDirectory		-- :: FilePath -> IO ()
     , removeDirectory		-- :: FilePath -> IO ()