[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 b12ad4f90c1579ce36060597bbb1858e001ddc00
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sun Dec 3 10:01:56 2006 +0100

    Renamed MissingH.Network.FTP.ParserServer to Network.FTP.Server.Parser, refs #1

diff --git a/MissingH.cabal b/MissingH.cabal
index 8da2c8c..9e28d1d 100644
--- a/MissingH.cabal
+++ b/MissingH.cabal
@@ -30,7 +30,7 @@ Exposed-Modules: MissingH.Str, System.IO, System.IO.Binary, Data.List.Utils,
     Network.FTP.Client,
     Network.FTP.Client.Parser,
     MissingH.Network.FTP.Server,
-    MissingH.Network.FTP.ParserServer,
+    Network.FTP.Server.Parser,
   MissingH.Network.SocketServer,
   Data.Either.Utils,
   Data.Maybe.Utils,
diff --git a/MissingH/Network/FTP/Server.hs b/MissingH/Network/FTP/Server.hs
index d85207e..7c5bde7 100644
--- a/MissingH/Network/FTP/Server.hs
+++ b/MissingH/Network/FTP/Server.hs
@@ -79,7 +79,7 @@ module MissingH.Network.FTP.Server(
                                    anonFtpHandler
                                   )
 where
-import MissingH.Network.FTP.ParserServer
+import Network.FTP.Server.Parser
 import Network.FTP.Client.Parser
 import Network.BSD
 import Network.Socket
diff --git a/MissingH/Network/FTP/ParserServer.hs b/src/Network/FTP/Server/Parser.hs
similarity index 93%
rename from MissingH/Network/FTP/ParserServer.hs
rename to src/Network/FTP/Server/Parser.hs
index 5dbb7d8..537103d 100644
--- a/MissingH/Network/FTP/ParserServer.hs
+++ b/src/Network/FTP/Server/Parser.hs
@@ -17,7 +17,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 -}
 
 {- |
-   Module     : MissingH.Network.FTP.ParserServer
+   Module     : Network.FTP.Server.Parser
    Copyright  : Copyright (C) 2004 John Goerzen
    License    : GNU GPL, version 2 or above
 
@@ -33,7 +33,7 @@ Written by John Goerzen, jgoerzen\@complete.org
 
 -}
 
-module MissingH.Network.FTP.ParserServer(
+module Network.FTP.Server.Parser(
                                          parseCommand
                                         )
 where
@@ -53,7 +53,7 @@ import Language.RFC2234.Parse(alpha)
 import Data.Char
 
 logit :: String -> IO ()
-logit m = debugM "MissingH.Network.FTP.ParserServer" ("FTP received: " ++ m)
+logit m = debugM "Network.FTP.Server.Parser" ("FTP received: " ++ m)
 
 ----------------------------------------------------------------------
 -- Utilities

-- 
haskell-testpack