From: simonmar <unknown>
Date: Wed, 29 Aug 2001 10:19:31 +0000 (+0000)
Subject: [project @ 2001-08-29 10:19:31 by simonmar]
X-Git-Tag: Approximately_9120_patches~1058
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b48fe6085e2465d67506347cff90116a58851008;p=ghc-hetmet.git

[project @ 2001-08-29 10:19:31 by simonmar]
Make the Permissions type non-abstract as per the revised Haskell 98 report.
---

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 ()