[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 f3a4f3b6b98008dd8c0b054e125a1c573e909330
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Dec 9 10:26:55 2004 +0100

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

diff --git a/ChangeLog b/ChangeLog
index 7db6d28..b62226d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,21 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-09 03:26:55 GMT	John Goerzen <jgoerzen at complete.org>	patch-51
+
+    Summary:
+      Checkpointing
+    Revision:
+      missingh--head--0.7--patch-51
+
+
+    new files:
+     libsrc/MissingH/Email/MailParser.hs
+
+    modified files:
+     ChangeLog Setup.description {arch}/=tagging-method
+
+
 2004-12-06 18:05:56 GMT	John Goerzen <jgoerzen at complete.org>	patch-50
 
     Summary:
diff --git a/Setup.description b/Setup.description
index dbe35a7..a3d080d 100644
--- a/Setup.description
+++ b/Setup.description
@@ -1,6 +1,6 @@
 -- arch-tag: MissingH main description file
 Name: MissingH
-Version: 0.6.0
+Version: 0.7.4
 License: GPL
 Maintainer: John Goerzen <jgoerzen at complete.org>
 Stability: Alpha
@@ -59,3 +59,5 @@ HS-Source-Dir: libsrc
 Extensions: ExistentialQuantification, AllowOverlappingInstances,
     AllowUndecidableInstances
 Build-Depends: haskell-src, network, unix, parsec
+Options-GHC: -O
+
diff --git a/libsrc/MissingH/Email/Sendmail.hs b/libsrc/MissingH/Email/MailParser.hs
similarity index 89%
copy from libsrc/MissingH/Email/Sendmail.hs
copy to libsrc/MissingH/Email/MailParser.hs
index 2ffe802..b47692e 100644
--- a/libsrc/MissingH/Email/Sendmail.hs
+++ b/libsrc/MissingH/Email/MailParser.hs
@@ -1,4 +1,4 @@
-{- arch-tag: Sendmail utility
+{- arch-tag: E-Mail Parsing Utility
 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.Email.Sendmail
+   Module     : MissingH.Email.Parser
    Copyright  : Copyright (C) 2004 John Goerzen
    License    : GNU GPL, version 2 or above
 
@@ -26,14 +26,24 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    Stability  : provisional
    Portability: portable
 
-This Haskell module provides an interface to transmitting a mail message.
-
+Parses an e-mail message
 Written by John Goerzen, jgoerzen\@complete.org
 -}
 
-module MissingH.Email.Sendmail(sendmail)
+module MissingH.Email.Parser(mailParser)
 where
 
+import MissingH.Hsemail.Rfc2822
+import Text.ParserCombinators.Parsec
+
+getHeaders :: String -> CharParser a [(String, String)]
+getHeaders =  many $ optional_field
+
+parseMsg = do 
+
+mailParser :: String -> 
+mailParser s = let m = message s
+                   (
 import MissingH.Cmd
 import System.Directory
 import System.IO

-- 
haskell-testpack