hamlet 0.3.0 → 0.3.1
raw patch · 3 files changed
+13/−2 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- Text/Hamlet/Parse.hs +5/−1
- hamlet.cabal +1/−1
- runtests.hs +7/−0
Text/Hamlet/Parse.hs view
@@ -70,7 +70,7 @@ parseLines set = mapM (go . killCarriage) . lines where go s = do let (spaces, s') = countSpaces 0 s- l <- parseLine set s'+ l <- parseLine set $ killTrailingDollar s' Ok (spaces, l) countSpaces i (' ':rest) = countSpaces (i + 1) rest countSpaces i ('\t':rest) = countSpaces (i + 4) rest@@ -79,6 +79,10 @@ | null s = s | last s == '\r' = init s | otherwise = s+ killTrailingDollar "" = ""+ killTrailingDollar x+ | last x == '$' && odd (length $ filter (== '$') x) = init x+ | otherwise = x parseLine :: HamletSettings -> String -> Result Line parseLine set "!!!" =
hamlet.cabal view
@@ -1,5 +1,5 @@ name: hamlet-version: 0.3.0+version: 0.3.1 license: BSD3 license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>
runtests.hs view
@@ -49,6 +49,7 @@ , testCase "attribute conditionals" caseAttribCond , testCase "non-ascii" caseNonAscii , testCase "maybe function" caseMaybeFunction+ , testCase "trailing dollar sign" caseTrailingDollarSign ] data Url = Home | Sub SubUrl@@ -283,3 +284,9 @@ $maybe Just.urlParams x @?x.theArg@ |]++caseTrailingDollarSign :: Assertion+caseTrailingDollarSign =+ helper "trailing space \ndollar sign $" [$hamlet|trailing space $+\+dollar sign $$|]