[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 b3632af00e5b67f669caa9ef5f198c3ae6ca68ef
Author: John Goerzen <jgoerzen at complete.org>
Date:   Wed Dec 6 23:41:20 2006 +0100

    Remove Network.FTP.Server.Parser dep on RFC2234
    
    It needed only one function (alpha) which I could reimplement easily enough

diff --git a/src/Network/FTP/Server/Parser.hs b/src/Network/FTP/Server/Parser.hs
index c9c1311..465caad 100644
--- a/src/Network/FTP/Server/Parser.hs
+++ b/src/Network/FTP/Server/Parser.hs
@@ -49,7 +49,6 @@ import System.IO(Handle, hGetContents)
 import System.IO(hGetLine)
 import Text.Regex
 import Data.Word
-import Language.RFC2234.Parse(alpha)
 import Data.Char
 
 logit :: String -> IO ()
@@ -59,6 +58,8 @@ logit m = debugM "Network.FTP.Server.Parser" ("FTP received: " ++ m)
 -- Utilities
 ----------------------------------------------------------------------
 
+alpha = oneOf (['A'..'Z'] ++ ['a'..'z']) <?> "alphabetic character"
+
 word = many1 alpha
 
 args :: Parser String

-- 
haskell-testpack