Skip to content

Commit 160f787

Browse files
Haddocks
1 parent 50f8835 commit 160f787

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/Lucid/Svg.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -64,11 +64,11 @@ prettyText svg = B.toLazyText $ LT.foldr go mempty text Nothing (-1)
6464
--
6565
-- 'path_', 'circle_', 'color_', 'scale_'
6666
--
67-
-- Plain text is written using the @OverloadedStrings@ and
68-
-- @ExtendedDefaultRules@ extensions, and is automatically escaped:
67+
-- Plain text is written using the @OverloadedStrings@
68+
-- extension, and is automatically escaped:
6969
--
7070
-- As in Lucid, elements nest by function application (unlike Lucid, there
71-
-- is no Monad instance for Elements):
71+
-- is no Monad instance for 'Element's and an 'Attribute' list is always required):
7272
--
7373
-- >>> g_ [] (text_ [] "Hello SVG")
7474
-- <g><text>Hello SVG</text></g>
@@ -79,7 +79,7 @@ prettyText svg = B.toLazyText $ LT.foldr go mempty text Nothing (-1)
7979
-- <text>Hello</text><text>SVG</text>
8080
--
8181
-- Attributes are set by providing an argument list. Each argument is set
82-
-- using the 'bindAttr' function or operators, ' <<-' and '->>'.
82+
-- using the 'bindAttr' function or operators, '<<-' and '->>'.
8383
--
8484
-- >>> rect_ [Width <<- "100%", Height <<- "100%", "red" ->> Fill] nil
8585
-- <rect height="100%" width="100%" fill="red"></rect>

0 commit comments

Comments
 (0)