ehs 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+8/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ehs.cabal +4/−1
• src/Ehs/Internal.hs +4/−4

@@ -1,5 +1,5 @@ name:                ehs-version:             0.1.0.0+version:             0.1.0.1 synopsis:            embedded Haskell by using quasiquotes. description:         embedded Haskell by using quasiquotes. license:             MIT@@ -13,6 +13,9 @@ stability:           experimental build-type:          Simple cabal-version:       >=1.10+Source-Repository head+  type: git+  location: http://github.com/minpou/ehs.git  library   ghc-options:         -O2

@@ -92,20 +92,20 @@  parseBind :: Parser Ehs parseBind = do-  string "<%"+  try $ string "<%"   p <- manyTill anyChar $ try (string "<-")   e <- manyTill anyChar $ try (string "%>")   pat <- case parsePat p of     Right pat -> return pat-    Left  err -> fail $ "<%= %>: " ++ err+    Left  err -> fail $ "<% %>: " ++ err   exp <- case parseExp e of     Right exp -> return exp-    Left  err -> fail $ "<%= %>: " ++ err+    Left  err -> fail $ "<% %>: " ++ err   optional newline   return $ Bind pat exp  parsePlain :: Parser Ehs-parsePlain = liftM Plain $ many1Till anyChar $ lookAhead $ void (string "<%") <|> eof+parsePlain = liftM Plain $ many1Till anyChar $ lookAhead $ void (try (string "<%")) <|> eof  many1Till :: (Stream s m t) => ParsecT s u m a -> ParsecT s u m end -> ParsecT s u m [a] many1Till p end = scan