[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 e50c5e868e97bb030433a9e9eca36e747b178493
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Dec 24 09:21:19 2004 +0100

    Updated announcement
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-169)

diff --git a/ChangeLog b/ChangeLog
index e47c5fe..2ec911b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-24 02:21:19 GMT	John Goerzen <jgoerzen at complete.org>	patch-169
+
+    Summary:
+      Updated announcement
+    Revision:
+      missingh--head--0.7--patch-169
+
+
+    modified files:
+     ChangeLog announcements/0.8.0.txt
+
+
 2004-12-24 02:17:35 GMT	John Goerzen <jgoerzen at complete.org>	patch-168
 
     Summary:
diff --git a/announcements/0.8.0.txt b/announcements/0.8.0.txt
index d7a5e7e..05a8f44 100644
--- a/announcements/0.8.0.txt
+++ b/announcements/0.8.0.txt
@@ -21,7 +21,9 @@ New feature summary:
  * Full, pure-Haskell FTP server
    Provides a full FTP server over a real or virtual (HVFS)
    filesystem.  It's a SocketServer server, so you get multithreading
-   for free.  Supports passive and port modes.
+   for free.  Supports passive eand port modes.
+
+   See below for an example:
  
  * Many path/file manipulation functions imported from
    Volker's HsShellScript.
@@ -36,4 +38,26 @@ or
 
   http://gopher.quux.org:70/devel/missingh
 
+------------------------------------------------------------
+
+Here is an example of a fully self-contained FTP server that serves
+up the local filesystem in read-only mode:
+
+import MissingH.Network.FTP.Server
+import MissingH.Network.SocketServer
+import MissingH.Logging.Logger
+import MissingH.IO.HVFS
+import MissingH.IO.HVFS.Combinators
+
+main = do
+       updateGlobalLogger "" (setLevel DEBUG)
+       updateGlobalLogger "MissingH.Network.FTP.Server" (setLevel DEBUG)
+       let opts = (simpleTCPOptions 12345) {reuse = True}
+       serveTCPforever opts $
+            threadedHandler $ 
+            loggingHandler "" INFO $
+            handleHandler $
+            anonFtpHandler (HVFSReadOnly SystemFS)
+
+
 # arch-tag: 0.8.0 announcement

-- 
haskell-testpack