From: sof <unknown>
Date: Thu, 27 Aug 1998 12:55:58 +0000 (+0000)
Subject: [project @ 1998-08-27 12:55:57 by sof]
X-Git-Tag: Approx_2487_patches~278
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cfba89544a1b88f650bf70c05b4edd03972c0cf2;p=ghc-hetmet.git

[project @ 1998-08-27 12:55:57 by sof]
FilePath moved from PrelHandle to PrelIOBase
---

diff --git a/ghc/lib/std/PrelHandle.lhs b/ghc/lib/std/PrelHandle.lhs
index 4fa4a7d..6d7a6c9 100644
--- a/ghc/lib/std/PrelHandle.lhs
+++ b/ghc/lib/std/PrelHandle.lhs
@@ -35,15 +35,13 @@ import PrelConc				-- concurrent only
 
 %*********************************************************
 %*							*
-\subsection{Types @FilePath@, @Handle@, @Handle__@}
+\subsection{Types @Handle@, @Handle__@}
 %*							*
 %*********************************************************
 
 The @Handle@ and @Handle__@ types are defined in @IOBase@.
 
 \begin{code}
-type FilePath = String
-
 {-# INLINE newHandle   #-}
 {-# INLINE readHandle  #-}
 {-# INLINE writeHandle #-}
diff --git a/ghc/lib/std/PrelIOBase.lhs b/ghc/lib/std/PrelIOBase.lhs
index fe13769..56b7d33 100644
--- a/ghc/lib/std/PrelIOBase.lhs
+++ b/ghc/lib/std/PrelIOBase.lhs
@@ -291,6 +291,13 @@ constructErrorMsg call_site reason =
  return (IOError Nothing iot call_site msg)
 \end{code}
 
+File names are specified using @FilePath@, a OS-dependent
+string that (hopefully, I guess) maps to an accessible file/object.
+
+\begin{code}
+type FilePath = String
+\end{code}
+
 %*********************************************************
 %*							*
 \subsection{Types @Handle@, @Handle__@}
@@ -367,7 +374,7 @@ data Handle__
       haFO__	      :: FILE_OBJECT,
       haType__        :: Handle__Type,
       haBufferMode__  :: BufferMode,
-      haFilePath__    :: String
+      haFilePath__    :: FilePath
     }      
 
 {-