Skip to content
Browse files

Fix message parser

  • Loading branch information...
1 parent da80745 commit 9c5612149708234e0c985dbd7af1f24ddc13c690 @jgoerzen committed
Showing with 3 additions and 3 deletions.
  1. +3 −3 MailParser.hs
View
6 MailParser.hs
@@ -19,7 +19,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
module MailParser where
import Text.ParserCombinators.Parsec
import Data.String.Utils
-import Utils
+import FeedParser(sanitize)
eol = (string "\r\n") <|> string "\n"
@@ -41,7 +41,7 @@ refHdr =
c2 <- restOfHdr
return (c ++ c2)
where restOfHdr =
- (do char ' '
+ (do oneOf " \t"
r <- line
n <- restOfHdr
return (r ++ n)) <|> return ""
@@ -63,4 +63,4 @@ message =
h <- headers
eol
b <- body
- return (strip (concat h), strip . sanitize_basic $ b)
+ return (strip (concat h), strip . sanitize $ b)

0 comments on commit 9c56121

Please sign in to comment.
Something went wrong with that request. Please try again.