diff --git a/ChangeLog.md b/ChangeLog.md --- a/ChangeLog.md +++ b/ChangeLog.md @@ -1,3 +1,7 @@ +### 2.0.10 + +* Added `ixhamlet` [#177](https://github.com/yesodweb/shakespeare/pull/177) + ### 2.0.9 * Better empty HTML tag list diff --git a/Text/Hamlet.hs b/Text/Hamlet.hs --- a/Text/Hamlet.hs +++ b/Text/Hamlet.hs @@ -385,6 +385,12 @@ urender $ \ur' -> mrender $ \mr -> return (e `AppE` mr `AppE` ur') em _ _ = error "bad Env" +-- | Quasiquoter that follows XHTML serialization rules and supports i18n. +-- +-- @since 2.0.10 +ixhamlet :: QuasiQuoter +ixhamlet = hamletWithSettings ihamletRules xhtmlHamletSettings + hamletWithSettings :: Q HamletRules -> HamletSettings -> QuasiQuoter hamletWithSettings hr set = QuasiQuoter diff --git a/shakespeare.cabal b/shakespeare.cabal --- a/shakespeare.cabal +++ b/shakespeare.cabal @@ -1,5 +1,5 @@ name: shakespeare -version: 2.0.9 +version: 2.0.10 license: MIT license-file: LICENSE author: Michael Snoyman @@ -111,10 +111,10 @@ main-is: Spec.hs other-modules: Text.Shakespeare.BaseSpec Text.Shakespeare.I18NSpec - Text.Shakespeare.JsSpec Text.Shakespeare.TextSpec - Text.Shakespeare.CssSpec - Text.Shakespeare.HamletSpec + Text.CssSpec + Text.HamletSpec + Text.JuliusSpec Quoter HamletTestTypes diff --git a/test/Text/CssSpec.hs b/test/Text/CssSpec.hs new file mode 100644 --- /dev/null +++ b/test/Text/CssSpec.hs @@ -0,0 +1,611 @@ +{-# LANGUAGE QuasiQuotes #-} +{-# LANGUAGE TemplateHaskell #-} +{-# OPTIONS_GHC -O0 #-} +module Text.CssSpec (spec) where + +import Test.HUnit hiding (Test) +import Test.Hspec + +import Prelude hiding (reverse) +import Text.Cassius +import Text.Lucius +import Data.List (intercalate) +import qualified Data.Text.Lazy as T +import qualified Data.Text as TS +import qualified Data.List +import qualified Data.List as L +import Data.Text (Text, pack, unpack) +import Data.Monoid (mappend) + +spec :: Spec +spec = do + it "cassius" caseCassius + it "cassiusFile" caseCassiusFile + it "cassius single comment" caseCassiusSingleComment + it "cassius leading comment" caseCassiusLeadingComment + + it "cassiusFileDebug" $ do + let var = "var" + let selector = "foo" + let urlp = (Home, [(pack "p", pack "q")]) + flip celper $(cassiusFileDebug "test/cassiuses/external1.cassius") $ concat + [ "foo {\n background: #000;\n bar: baz;\n color: #F00;\n}\n" + , "bin {\n" + , " background-image: url(url);\n" + , " bar: bar;\n color: #7F6405;\n fvarx: someval;\n unicode-test: שלום;\n" + , " urlp: url(url?p=q);\n}\n" + ] + +{- TODO + it "cassiusFileDebugChange" $ do + let var = "var" + writeFile "test/cassiuses/external2.cassius" "foo\n #{var}: 1" + celper "foo{var:1}" $(cassiusFileDebug "test/cassiuses/external2.cassius") + writeFile "test/cassiuses/external2.cassius" "foo\n #{var}: 2" + celper "foo{var:2}" $(cassiusFileDebug "test/cassiuses/external2.cassius") + writeFile "test/cassiuses/external2.cassius" "foo\n #{var}: 1" + -} + + + it "comments" $ do + -- FIXME reconsider Hamlet comment syntax? + celper "" [cassius|/* this is a comment */ +/* another comment */ +/*a third one*/|] + + + it "cassius pseudo-class" $ + flip celper [cassius| +a:visited + color: blue +|] "a:visited{color:blue}" + + + it "ignores a blank line" $ do + celper "foo{bar:baz}" [cassius| +foo + + bar: baz + +|] + + + it "leading spaces" $ + celper "foo{bar:baz}" [cassius| + foo + bar: baz +|] + + + it "cassius all spaces" $ + celper "h1{color:green }" [cassius| + h1 + color: green + |] + + + it "cassius whitespace and colons" $ do + celper "h1:hover{color:green ;font-family:sans-serif}" [cassius| + h1:hover + color: green + font-family:sans-serif + |] + + + it "cassius trailing comments" $ + celper "h1:hover{color:green ;font-family:sans-serif}" [cassius| + h1:hover /* Please ignore this */ + color: green /* This is a comment. */ + /* Obviously this is ignored too. */ + font-family:sans-serif + |] + + it "cassius nesting" $ + celper "foo bar{baz:bin}" [cassius| + foo + bar + baz: bin + |] + + it "cassius variable" $ + celper "foo bar{baz:bin}" [cassius| + @binvar: bin + foo + bar + baz: #{binvar} + |] + + it "cassius trailing semicolon" $ + celper "foo bar{baz:bin}" [cassius| + @binvar: bin + foo + bar + baz: #{binvar}; + |] + + + + it "cassius module names" $ do + let foo = "foo" + dub = 3.14::Double + int = -5::Int + celper "sel{bar:oof oof 3.14 -5}" + [cassius| +sel + bar: #{Data.List.reverse foo} #{L.reverse foo} #{show dub} #{show int} +|] + + + + it "single dollar at and caret" $ do + celper "sel{att:$@^}" [cassius| +sel + att: $@^ +|] + + {- + celper "sel{att:#{@{^{}" [cassius| +sel + att: #\{@\{^{ +|] +-} + + + it "dollar operator" $ do + let val = (1, (2, 3)) :: (Integer, (Integer, Integer)) + celper "sel{att:2}" [cassius| +sel + att: #{ show $ fst $ snd val } +|] + celper "sel{att:2}" [cassius| +sel + att: #{ show $ fst $ snd $ val} +|] + + + + it "embedded slash" $ do + celper "sel{att:///}" [cassius| +sel + att: /// +|] + + + + + + + it "multi cassius" $ do + celper "foo{bar:baz;bar:bin}" [cassius| +foo + bar: baz + bar: bin +|] + + + + + + + it "lucius" $ do + let var = "var" + let urlp = (Home, [(pack "p", pack "q")]) + flip celper [lucius| +foo { + background: #{colorBlack}; + bar: baz; + color: #{colorRed}; +} +bin { + background-image: url(@{Home}); + bar: bar; + color: #{(((Color 127) 100) 5)}; + f#{var}x: someval; + unicode-test: שלום; + urlp: url(@?{urlp}); +} +|] $ concat + [ "foo{background:#000;bar:baz;color:#F00}" + , "bin{" + , "background-image:url(url);" + , "bar:bar;color:#7F6405;fvarx:someval;unicode-test:שלום;" + , "urlp:url(url?p=q)}" + ] + + + + it "lucius file" $ do + let var = "var" + let urlp = (Home, [(pack "p", pack "q")]) + flip celper $(luciusFile "test/cassiuses/external1.lucius") $ concat + [ "foo{background:#000;bar:baz;color:#F00}" + , "bin{" + , "background-image:url(url);" + , "bar:bar;color:#7F6405;fvarx:someval;unicode-test:שלום;" + , "urlp:url(url?p=q)}" + ] + + it "lucius file debug" caseLuciusFileDebug + + + + + it "lucius nested" $ do + celper "foo bar{baz:bin}" $(luciusFile "test/cassiuses/external-nested.lucius") + celper "foo bar {\n baz: bin;\n}\n" $(luciusFileDebug "test/cassiuses/external-nested.lucius") + celper "foo bar{baz:bin}" [lucius| + foo { + bar { + baz: bin; + } + } + |] + celper "foo1 bar,foo2 bar{baz:bin}" [lucius| + foo1, foo2 { + bar { + baz: bin; + } + } + |] + + + it "lucius charset" $ do + celper (concat ["@charset \"utf-8\";" + , "#content ul{list-style:none;padding:0 5em}" + , "#content ul li{padding:1em 0}" + , "#content ul li a{color:#419a56;font-family:'TeXGyreHerosBold',helvetica,arial,sans-serif;font-weight:bold;text-transform:uppercase;white-space:nowrap}" + ]) [lucius| +@charset "utf-8"; +#content ul +{ + list-style: none; + padding: 0 5em; + li + { + padding: 1em 0; + a + { + color: #419a56; + font-family: 'TeXGyreHerosBold',helvetica,arial,sans-serif; + font-weight: bold; + text-transform: uppercase; + white-space: nowrap; + } + } +} +|] + + it "lucius media" $ do + celper "@media only screen{foo bar{baz:bin}}" $(luciusFile "test/cassiuses/external-media.lucius") + celper "@media only screen {\n foo bar {\n baz: bin;\n }\n}\n" $(luciusFileDebug "test/cassiuses/external-media.lucius") + celper "@media only screen{foo bar{baz:bin}}" [lucius| + @media only screen{ + foo { + bar { + baz: bin; + } + } + } + |] + + + {- + it "cassius removes whitespace" $ do + celper "foo{bar:baz}" [cassius| + foo + bar : baz + |] + -} + + + + + + it "lucius trailing comments" $ + celper "foo{bar:baz}" [lucius|foo{bar:baz;}/* ignored*/|] + + it "lucius variables" $ celper "foo{bar:baz}" [lucius| +@myvar: baz; +foo { + bar: #{myvar}; +} +|] + it "lucius CDO/CDC tokens" $ + celper "*{a:b}" [lucius| + +|] + it "lucius @import statements" $ + celper "@import url(\"bla.css\");" [lucius| +@import url("bla.css"); +|] + it "lucius simple escapes" $ + celper "*{a:test}" [lucius| +* { + a: t\65 st; +} +|] + it "lucius bounded escapes" $ + celper "*{a:teft}" [lucius| +* { + a: t\000065ft; +} +|] + it "lucius case-insensitive keywords" $ + celper "@media foo {}" [lucius| +@MeDIa foo { +} +|] + it "lucius @page statements" $ + celper "@page :right{a:b;c:d}" [lucius| +@page :right { +a:b; +c:d; +} +|] + it "lucius @font-face statements" $ + celper "@font-face{a:b;c:d}" [lucius| +@font-face { +a:b; +c:d; +} +|] + it "lucius runtime" $ Right (T.pack "foo {\n bar: baz;\n}\n") @=? luciusRT (T.pack "foo { bar: #{myvar}}") [(TS.pack "myvar", TS.pack "baz")] + it "lucius runtime variables" $ Right (T.pack "foo {\n bar: baz;\n}\n") @=? luciusRT (T.pack "@dummy: dummy; @myvar: baz; @dummy2: dummy; foo { bar: #{myvar}}") [] + it "lucius whtiespace" $ Right (T.pack "@media foo {\n bar {\n baz: bin;\n baz2: bin2;\n }\n}\n") + @=? luciusRT (T.pack "@media foo{bar{baz:bin;baz2:bin2}}") [] + it "variables inside value" $ + celper "foo{foo:XbarY}" [lucius| +@bar: bar; +foo { foo:X#{bar}Y; } +|] + it "variables in media selector" $ + celper "@media (max-width: 400px){foo{color:red}}" [lucius| +@mobileWidth: 400px; +@media (max-width: #{mobileWidth}){ foo { color: red; } } +|] + it "URLs in import" $ celper + "@import url(\"suburl\");" [lucius| +@import url("@{Sub SubUrl}"); +|] + it "vars in charset" $ do + let charset = "mycharset" + celper "@charset mycharset;" [lucius| +@charset #{charset}; +|] + it "keyframes" $ celper + "@keyframes mymove {from{top:0px}to{top:200px}}" [lucius| +@keyframes mymove { + from { + top: 0px; + } + to { + top: 200px; + } +} +|] + it "prefixed keyframes" $ celper + "@-webkit-keyframes mymove {from{top:0px}to{top:200px}}" [lucius| +@-webkit-keyframes mymove { + from { + top: 0px; + } + to { + top: 200px; + } +} +|] + it "lucius mixins" $ do + let bins = [luciusMixin| + bin:bin2; + /* FIXME not currently implementing sublocks in mixins + foo2 { + x: y + } + */ + |] :: Mixin + -- No sublocks celper "foo{bar:baz;bin:bin2}foo foo2{x:y}" [lucius| + celper "foo{bar:baz;bin:bin2}" [lucius| + foo { + bar: baz; + ^{bins} + } + |] + it "cassius mixins" $ do + let bins = [cassiusMixin| + bin:bin2 + bin3:bin4 + |] :: Mixin + -- No sublocks celper "foo{bar:baz;bin:bin2}foo foo2{x:y}" [lucius| + celper "foo{bar:baz;bin:bin2;bin3:bin4}" [lucius| + foo { + bar: baz; + ^{bins} + } + |] + it "more complicated mixins" $ do + let transition val = + [luciusMixin| + -webkit-transition: #{val}; + -moz-transition: #{val}; + -ms-transition: #{val}; + -o-transition: #{val}; + transition: #{val}; + |] + + celper ".some-class{-webkit-transition:all 4s ease;-moz-transition:all 4s ease;-ms-transition:all 4s ease;-o-transition:all 4s ease;transition:all 4s ease}" + [lucius| + .some-class { + ^{transition "all 4s ease"} + } + |] + + it "runtime mixin" $ do + let bins = [luciusMixin| + bin:bin2; + /* FIXME not currently implementing sublocks in mixins + foo2 { + x: y + } + */ + |] :: Mixin + -- No sublocks celper "foo{bar:baz;bin:bin2}foo foo2{x:y}" [lucius| + Right (T.pack "foo{bar:baz;bin:bin2}") @=? luciusRTMixin + (T.pack "foo { bar: baz; ^{bins} }") + True + [(TS.pack "bins", RTVMixin bins)] + + it "luciusFileReload mixin" $ do + let mixin = [luciusMixin|foo:bar;baz:bin|] + flip celper $(luciusFileReload "test/cassiuses/mixin.lucius") $ concat + [ "selector {\n foo: bar;\n baz: bin;\n}\n" + ] + + it "cassiusFileReload with import URL" $ do + celper + "@import url(url);\n" + $(cassiusFileReload "test/cassiuses/reload-import.cassius") + + it "& subblocks" $ + celper "foo:bar{baz:bin}" + [lucius| + foo { + &:bar { + baz: bin; + } + } + |] + + describe "font-face #139" $ do + it "lucius" $ + celper "@font-face{font-family:myFirstFont;src:url(sansation_light.woff)}" + [lucius| + @font-face { + font-family: myFirstFont; + src: url(sansation_light.woff); + } + |] + it "cassius" $ + celper "@font-face{font-family:myFirstFont;src:url(sansation_light.woff)}" + [cassius| + @font-face + font-family: myFirstFont + src: url(sansation_light.woff) + |] + +data Url = Home | Sub SubUrl +data SubUrl = SubUrl +render :: Url -> [(Text, Text)] -> Text +render Home qs = pack "url" `mappend` showParams qs +render (Sub SubUrl) qs = pack "suburl" `mappend` showParams qs + +showParams :: [(Text, Text)] -> Text +showParams [] = pack "" +showParams z = + pack $ '?' : intercalate "&" (map go z) + where + go (x, y) = go' x ++ '=' : go' y + go' = concatMap encodeUrlChar . unpack + +-- | Taken straight from web-encodings; reimplemented here to avoid extra +-- dependencies. +encodeUrlChar :: Char -> String +encodeUrlChar c + -- List of unreserved characters per RFC 3986 + -- Gleaned from http://en.wikipedia.org/wiki/Percent-encoding + | 'A' <= c && c <= 'Z' = [c] + | 'a' <= c && c <= 'z' = [c] + | '0' <= c && c <= '9' = [c] +encodeUrlChar c@'-' = [c] +encodeUrlChar c@'_' = [c] +encodeUrlChar c@'.' = [c] +encodeUrlChar c@'~' = [c] +encodeUrlChar ' ' = "+" +encodeUrlChar y = + let (a, c) = fromEnum y `divMod` 16 + b = a `mod` 16 + showHex' x + | x < 10 = toEnum $ x + (fromEnum '0') + | x < 16 = toEnum $ x - 10 + (fromEnum 'A') + | otherwise = error $ "Invalid argument to showHex: " ++ show x + in ['%', showHex' b, showHex' c] + + + +celper :: String -> CssUrl Url -> Assertion +celper res h = do + let x = renderCssUrl render h + T.pack res @=? x + +caseCassius :: Assertion +caseCassius = do + let var = "var" + let urlp = (Home, [(pack "p", pack "q")]) + flip celper [cassius| +foo + background: #{colorBlack} + bar: baz + color: #{colorRed} +bin + background-image: url(@{Home}) + bar: bar + color: #{(((Color 127) 100) 5)} + f#{var}x: someval + unicode-test: שלום + urlp: url(@?{urlp}) +|] $ concat + [ "foo{background:#000;bar:baz;color:#F00}" + , "bin{" + , "background-image:url(url);" + , "bar:bar;color:#7F6405;fvarx:someval;unicode-test:שלום;" + , "urlp:url(url?p=q)}" + ] + +caseCassiusFile :: Assertion +caseCassiusFile = do + let var = "var" + let selector = "foo" + let urlp = (Home, [(pack "p", pack "q")]) + flip celper $(cassiusFile "test/cassiuses/external1.cassius") $ concat + [ "foo{background:#000;bar:baz;color:#F00}" + , "bin{" + , "background-image:url(url);" + , "bar:bar;color:#7F6405;fvarx:someval;unicode-test:שלום;" + , "urlp:url(url?p=q)}" + ] + +caseCassiusSingleComment :: Assertion +caseCassiusSingleComment = + flip celper [cassius| + /* + this is a comment + */ + |] "" + +caseCassiusLeadingComment :: Assertion +caseCassiusLeadingComment = + flip celper [cassius| + /* + this is a comment + */ + sel1 + foo: bar + sel2 + baz: bin + |] "sel1{foo:bar}sel2{baz:bin}" + +instance Show Url where + show _ = "FIXME remove this instance show Url" + + +caseLuciusFileDebug :: Assertion +caseLuciusFileDebug = do + let var = "var" + writeFile "test/cassiuses/external2.lucius" "foo{#{var}: 1}" + celper "foo {\n var: 1;\n}\n" $(luciusFileDebug "test/cassiuses/external2.lucius") + writeFile "test/cassiuses/external2.lucius" "foo{#{var}: 2}" + celper "foo {\n var: 2;\n}\n" $(luciusFileDebug "test/cassiuses/external2.lucius") + writeFile "test/cassiuses/external2.lucius" "foo{#{var}: 1}" diff --git a/test/Text/HamletSpec.hs b/test/Text/HamletSpec.hs new file mode 100644 --- /dev/null +++ b/test/Text/HamletSpec.hs @@ -0,0 +1,1066 @@ +{-# LANGUAGE QuasiQuotes #-} +{-# LANGUAGE TemplateHaskell #-} +module Text.HamletSpec (spec) where + +import HamletTestTypes (ARecord(..)) + +import Test.HUnit hiding (Test) +import Test.Hspec hiding (Arg) + +import Prelude hiding (reverse) +import Text.Hamlet +import Text.Hamlet.RT +import Data.List (intercalate) +import qualified Data.Text.Lazy as T +import qualified Data.List +import qualified Data.List as L +import Data.Text (Text, pack, unpack) +import Data.Monoid (mappend) +import qualified Data.Set as Set +import qualified Text.Blaze.Html.Renderer.Text +import Text.Blaze.Html (toHtml) +import Text.Blaze.Internal (preEscapedString) +import Text.Blaze + +spec = do + it "empty" caseEmpty + it "static" caseStatic + it "tag" caseTag + it "var" caseVar + it "var chain " caseVarChain + it "url" caseUrl + it "url chain " caseUrlChain + it "embed" caseEmbed + it "embed chain " caseEmbedChain + it "if" caseIf + it "if chain " caseIfChain + it "else" caseElse + it "else chain " caseElseChain + it "elseif" caseElseIf + it "elseif chain " caseElseIfChain + it "list" caseList + it "list chain" caseListChain + it "with" caseWith + it "with multi" caseWithMulti + it "with chain" caseWithChain + it "with comma string" caseWithCommaString + it "with multi scope" caseWithMultiBindingScope + it "script not empty" caseScriptNotEmpty + it "meta empty" caseMetaEmpty + it "input empty" caseInputEmpty + it "multiple classes" caseMultiClass + it "attrib order" caseAttribOrder + it "nothing" caseNothing + it "nothing chain " caseNothingChain + it "just" caseJust + it "just chain " caseJustChain + it "constructor" caseConstructor + it "url + params" caseUrlParams + it "escape" caseEscape + it "empty statement list" caseEmptyStatementList + it "attribute conditionals" caseAttribCond + it "non-ascii" caseNonAscii + it "maybe function" caseMaybeFunction + it "trailing dollar sign" caseTrailingDollarSign + it "non leading percent sign" caseNonLeadingPercent + it "quoted attributes" caseQuotedAttribs + it "spaced derefs" caseSpacedDerefs + it "attrib vars" caseAttribVars + it "strings and html" caseStringsAndHtml + it "nesting" caseNesting + it "trailing space" caseTrailingSpace + it "currency symbols" caseCurrency + it "external" caseExternal + it "parens" caseParens + it "hamlet literals" caseHamletLiterals + it "hamlet' and xhamlet'" caseHamlet' + it "hamlet tuple" caseTuple + it "complex pattern" caseComplex + it "record pattern" caseRecord + it "record wildcard pattern #1" caseRecordWildCard + it "record wildcard pattern #2" caseRecordWildCard1 + + + + it "comments" $ do + -- FIXME reconsider Hamlet comment syntax? + helper "" [hamlet|$# this is a comment +$# another comment +$#a third one|] + + + it "ignores a blank line" $ do + helper "

foo

\n" [hamlet| +

+ + foo + + +|] + + + + + it "angle bracket syntax" $ + helper "

HELLO

" + [hamlet| +$newline never + + HELLO +|] + + + + it "hamlet module names" $ do + let foo = "foo" + helper "oof oof 3.14 -5" + [hamlet| +$newline never +#{Data.List.reverse foo} # +#{L.reverse foo} # +#{show 3.14} #{show -5}|] + + + + + + it "single dollar at and caret" $ do + helper "$@^" [hamlet|\$@^|] + + helper "#{@{^{" [hamlet|#\{@\{^\{|] + + + it "dollar operator" $ do + let val = (1, (2, 3)) + helper "2" [hamlet|#{ show $ fst $ snd val }|] + helper "2" [hamlet|#{ show $ fst $ snd $ val}|] + + + it "in a row" $ do + helper "1" [hamlet|#{ show $ const 1 2 }|] + + + it "embedded slash" $ do + helper "///" [hamlet|///|] + +{- compile-time error + it "tag with slash" $ do + helper "" [hamlet| +

+ Text +

+|] +-} + + it "string literals" $ do + helper "string" [hamlet|#{"string"}|] + helper "string" [hamlet|#{id "string"}|] + helper "gnirts" [hamlet|#{L.reverse $ id "string"}|] + helper "str"ing" [hamlet|#{"str\"ing"}|] + helper "str<ing" [hamlet|#{"str1

2 not ignored

" [hamlet| +$newline never +

1 + +

+ 2 + not ignored +|] + + it "Keeps SSI includes" $ + helper "" [hamlet||] + + + + it "nested maybes" $ do + let muser = Just "User" :: Maybe String + mprof = Nothing :: Maybe Int + m3 = Nothing :: Maybe String + helper "justnothing" [hamlet| +$maybe user <- muser + $maybe profile <- mprof + First two are Just + $maybe desc <- m3 + \ and left us a description: +

#{desc} + $nothing + and has left us no description. + $nothing + justnothing +$nothing +

No such Person exists. + |] + + + it "maybe with qualified constructor" $ do + helper "5" [hamlet| + $maybe HamletTestTypes.ARecord x y <- Just $ ARecord 5 True + \#{x} + |] + + it "record with qualified constructor" $ do + helper "5" [hamlet| + $maybe HamletTestTypes.ARecord {..} <- Just $ ARecord 5 True + \#{field1} + |] + + + + + it "conditional class" $ do + helper "

\n" + [hamlet|

|] + + helper "

\n" + [hamlet|

|] + + helper "

\n" + [hamlet|

|] + + + + + it "forall on Foldable" $ do + let set = Set.fromList [1..5 :: Int] + helper "12345" [hamlet| +$forall x <- set + #{x} +|] + + + + it "non-poly HTML" $ do + helperHtml "

HELLO WORLD

\n" [shamlet| +

HELLO WORLD + |] + helperHtml "

HELLO WORLD

\n" $(shamletFile "test/hamlets/nonpolyhtml.hamlet") + helper "

HELLO WORLD

\n" $(hamletFileReload "test/hamlets/nonpolyhtml.hamlet") + + + it "non-poly Hamlet" $ do + let embed = [hamlet|

EMBEDDED|] + helper "

url

\n

EMBEDDED

\n" [hamlet| +

@{Home} + ^{embed} + |] + helper "

url

\n" $(hamletFile "test/hamlets/nonpolyhamlet.hamlet") + helper "

url

\n" $(hamletFileReload "test/hamlets/nonpolyhamlet.hamlet") + + it "non-poly IHamlet" $ do + let embed = [ihamlet|

EMBEDDED|] + ihelper "

Adios

\n

EMBEDDED

\n" [ihamlet| +

_{Goodbye} + ^{embed} + |] + ihelper "

Hola

\n" $(ihamletFile "test/hamlets/nonpolyihamlet.hamlet") + ihelper "

Hola

\n" $(ihamletFileReload "test/hamlets/nonpolyihamlet.hamlet") + + it "pattern-match tuples: forall" $ do + let people = [("Michael", 26), ("Miriam", 25)] + helper "
Michael
26
Miriam
25
" [hamlet| +$newline never +
+ $forall (name, age) <- people +
#{name} +
#{show age} +|] + it "pattern-match tuples: maybe" $ do + let people = Just ("Michael", 26) + helper "
Michael
26
" [hamlet| +$newline never +
+ $maybe (name, age) <- people +
#{name} +
#{show age} +|] + it "pattern-match tuples: with" $ do + let people = ("Michael", 26) + helper "
Michael
26
" [hamlet| +$newline never +
+ $with (name, age) <- people +
#{name} +
#{show age} +|] + it "list syntax for interpolation" $ do + helper "
  • 1
  • 2
  • 3
" [hamlet| +$newline never +