Many improvements: still in early development

[Lucu.git] / Network / HTTP / Lucu / Parser.hs

diff --git a/Network/HTTP/Lucu/Parser.hs b/Network/HTTP/Lucu/Parser.hs
index 7a51ddcab435aa75cfcfc2904370bd104f8caef9..3fa4c150e669dd088112efaf4f7f457fb36add83 100644 (file)
--- a/Network/HTTP/Lucu/Parser.hs
+++ b/Network/HTTP/Lucu/Parser.hs
@@ -13,7 +13,9 @@ module Network.HTTP.Lucu.Parser
     , many1     -- Parser a -> Parser [a]
     , manyTill  -- Parser a -> Parser end -> Parser [a]
     , many1Till -- Parser a -> Parser end -> Parser [a]
+    , option    -- a -> Parser a -> Parser a
     , sp        -- Parser Char
+    , ht        -- Parser Char
     , crlf      -- Parser String
     )
     where
@@ -121,9 +123,17 @@ many1Till p end = many1 $ do x <- p
                              return x
 
 
+option :: a -> Parser a -> Parser a
+option def p = p <|> return def
+
+
 sp :: Parser Char
 sp = char ' '
 
 
+ht :: Parser Char
+ht = char '\t'
+
+
 crlf :: Parser String
 crlf = string "\x0d\x0a"