[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 15410414420d6525ee82963c7f4b45054d220398
Author: John Goerzen <jgoerzen at complete.org>
Date:   Mon Dec 20 21:44:49 2004 +0100

    Start of HVFS
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-87)

diff --git a/ChangeLog b/ChangeLog
index 712e0de..3410727 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,25 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-20 14:44:49 GMT	John Goerzen <jgoerzen at complete.org>	patch-87
+
+    Summary:
+      Start of HVFS
+    Revision:
+      missingh--head--0.7--patch-87
+
+
+    new files:
+     libsrc/MissingH/IO/HVFS.hs
+
+    modified files:
+     ChangeLog
+
+    renamed files:
+     pending/HVIO.hs
+       ==> libsrc/MissingH/IO/HVIO.hs
+
+
 2004-12-19 22:07:48 GMT	John Goerzen <jgoerzen at complete.org>	patch-86
 
     Summary:
diff --git a/libsrc/MissingH/Threads.hs b/libsrc/MissingH/IO/HVFS.hs
similarity index 50%
copy from libsrc/MissingH/Threads.hs
copy to libsrc/MissingH/IO/HVFS.hs
index a863960..4a784f2 100644
--- a/libsrc/MissingH/Threads.hs
+++ b/libsrc/MissingH/IO/HVFS.hs
@@ -1,4 +1,4 @@
-{- arch-tag: Thread utilities main file
+{- arch-tag: HVFS main file
 Copyright (C) 2004 John Goerzen <jgoerzen at complete.org>
 
 This program is free software; you can redistribute it and/or modify
@@ -17,7 +17,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 -}
 
 {- |
-   Module     : MissingH.Threads
+   Module     : MissingH.IO.HVFS
    Copyright  : Copyright (C) 2004 John Goerzen
    License    : GNU GPL, version 2 or above
 
@@ -26,21 +26,32 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    Stability  : provisional
    Portability: portable
 
-This module provides various helpful utilities for dealing with threads.
+Haskell Virtual FS -- generic support for real or virtual filesystem in Haskell
+
+Copyright (c) 2004 John Goerzen, jgoerzen\@complete.org
 
-Written by John Goerzen, jgoerzen\@complete.org
 -}
 
-module MissingH.Threads(-- * I\/O utilities
-                        runInThread
-                       )
+module MissingH.IO.HVFS(-- * Implementation Classes
+                    )
 where
 
-import Control.Concurrent
-
-{- | Takes a IO action and a function.  The IO action will be called in a 
-separate thread.  When it is completed, the specified function is called with
-its result.  This is a simple way of doing callbacks. -}
-
-runInThread :: IO a -> (a -> IO b) -> IO ThreadId
-runInThread action callback = forkIO $ action >>= callback >> return ()
+import MissingH.IO.HVIO
+import System.IO
+
+class HVFSGeneric a where
+    vGetCurrentDirectory :: a -> IO FilePath
+    vSetCurrentDirectory :: a -> FilePath -> IO ()
+
+class HVFSGeneric a => HVFSReader a where
+    vGetDirectoryContents :: a -> FilePath -> IO [FilePath]
+    vDoesFileExist :: a -> FilePath -> IO Bool
+    vDoesDirectoryExist :: a -> FilePath -> IO Bool
+    
+class HVFSGeneric a => HVFSWriter a where
+    vCreateDirectory :: a -> FilePath -> IO ()
+    vRemoveDirectory :: a -> FilePath -> IO ()
+    vRenameDirectory :: a -> FilePath -> FilePath -> IO ()
+    vRemoveFile :: a -> FilePath -> IO ()
+    vRenameFile :: a -> FilePath -> FilePath -> IO ()
+    
\ No newline at end of file
diff --git a/pending/HVIO.hs b/libsrc/MissingH/IO/HVIO.hs
similarity index 100%
rename from pending/HVIO.hs
rename to libsrc/MissingH/IO/HVIO.hs

-- 
haskell-testpack