Merge pull request bodil#46 from hgiasac/master

only allow rendering self closing tags for SVG and void elements

Author: bodil

.gitignore

@@ -4,3 +4,5 @@
 /.tern-port
 *.tix
 /.psc-package
+/.pulp-cache
+.psc-ide-port

src/Text/Smolder/Markup.purs

@@ -37,6 +37,8 @@ data Attr = Attr String String
 
 data EventHandler e = EventHandler String e
 
+derive instance eqNS :: Eq NS
+
 instance functorEventHandler ∷ Functor EventHandler where
   map f (EventHandler s e) = EventHandler s (f e)
 

src/Text/Smolder/Renderer/String.purs

@@ -8,7 +8,7 @@ import Control.Comonad (extend)
 import Control.Comonad.Cofree (Cofree, head, mkCofree, tail, (:<))
 import Control.Monad.Free (foldFree)
 import Control.Monad.State (State, evalState, execState, get, put, state)
-import Data.Array ((..))
+import Data.Array (notElem, (..))
 import Data.CatList (CatList)
 import Data.Char (toCharCode)
 import Data.Foldable (elem, fold, foldr)
@@ -18,6 +18,7 @@ import Data.Set (Set)
 import Data.Set as Set
 import Data.String.CodeUnits (fromCharArray, toCharArray)
 import Data.String (length)
+import Data.String.CodeUnits (fromCharArray, toCharArray)
 import Data.Tuple (Tuple(..))
 import Data.Tuple.Nested ((/\))
 import Global.Unsafe (unsafeEncodeURI)
@@ -153,6 +154,9 @@ showAttrs tag = map showAttr >>> fold
           <> escapeAttrValue tag key value
           <> "\""
 
+voidTags :: Array String 
+voidTags = ["area", "base", "br", "col", "embed", "hr", "img", "input", "link", "meta", "param", "source", "track", "wbr"]
+
 renderItem :: ∀ e. MarkupM e ~> State String
 renderItem (Element ns name children attrs _ rest) =
   let c = render children