[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit b4cff00c838298d36034aaca80eb36a905396e24
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Dec 21 22:28:34 2004 +0100

    Checkpointing
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-121)

diff --git a/ChangeLog b/ChangeLog
index be8e635..de2f342 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,19 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-21 15:28:34 GMT	John Goerzen <jgoerzen at complete.org>	patch-121
+
+    Summary:
+      Checkpointing
+    Revision:
+      missingh--head--0.7--patch-121
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/IO/HVFS/Combinators.hs
+     libsrc/MissingH/Network/FTP/Client.hs
+
+
 2004-12-21 15:17:53 GMT	John Goerzen <jgoerzen at complete.org>	patch-120
 
     Summary:
diff --git a/libsrc/MissingH/IO/HVFS/Combinators.hs b/libsrc/MissingH/IO/HVFS/Combinators.hs
index 748fae5..be1df68 100644
--- a/libsrc/MissingH/IO/HVFS/Combinators.hs
+++ b/libsrc/MissingH/IO/HVFS/Combinators.hs
@@ -34,6 +34,7 @@ Copyright (c) 2004 John Goerzen, jgoerzen\@complete.org
 
 module MissingH.IO.HVFS.Combinators(
                                     -- * Restrictions
+                                    HVFSChroot, newHVFSChroot
                                    )
 where
 
@@ -58,6 +59,19 @@ of that filesystem. -}
 data HVFS a => HVFSChroot a = HVFSChroot String a
                             deriving (Eq, Show)
 
+{- | Create a new 'HVFSChroot' object. -}
+newHVFSChroot :: HVFS a => a            -- ^ The object to pass requests on to
+              -> FilePath               -- ^ The path of the directory to make root
+              -> IO (HVFSChroot a)      -- ^ The resulting new object
+newHVFSChroot fh fp =
+    do full <- getFullPath fh fp
+       isdir <- vDoesDirectoryExist fh full
+       if isdir
+          then return (HVFSChroot full fh)
+          else vRaiseError fh doesNotExistErrorType
+                 ("Attempt to instantiate HVFSChroot over non-directory " ++ full)
+                 (Just full)
+
 {- | Get the embedded object -}
 dch (HVFSChroot _ a) = a
 
diff --git a/libsrc/MissingH/Network/FTP/Client.hs b/libsrc/MissingH/Network/FTP/Client.hs
index aa2bf8d..6724e8c 100644
--- a/libsrc/MissingH/Network/FTP/Client.hs
+++ b/libsrc/MissingH/Network/FTP/Client.hs
@@ -26,7 +26,8 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    Stability  : experimental
    Portability: systems with networking
 
-This module provides a client-side interface to the File Transfer Protocol.
+This module provides a client-side interface to the File Transfer Protocol
+as defined by RFC959 and RFC1123.
 
 Written by John Goerzen, jgoerzen\@complete.org
 

-- 
haskell-testpack