hamlet 0.3.1 → 0.3.1.1

raw patch · 2 files changed

+11/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Text/Hamlet/Quasi.hs +10/−4
• hamlet.cabal +1/−1

@@ -20,11 +20,17 @@ docsToExp :: Exp -> Scope -> [Doc] -> Q Exp docsToExp render scope docs = do     exps <- mapM (docToExp render scope) docs-    ma <- [|mappend|]     me <- [|mempty|]-    return $ if null exps then me else foldr1 (go ma) exps-  where-    go ma x y = ma `AppE` x `AppE` y+    return $+        case exps of+            [] -> me+            [x] -> x+            _ ->+                let x = init exps+                    y = last exps+                    x' = map (BindS WildP) x+                    y' = NoBindS y+                 in DoE $ x' ++ [y']  docToExp :: Exp -> Scope -> Doc -> Q Exp docToExp render scope (DocForall list ident@(Ident name) inside) = do

@@ -1,5 +1,5 @@ name:            hamlet-version:         0.3.1+version:         0.3.1.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>