gdritter repos telml-markup / d2aba47
Fixed issue with parsing tag names Getty Ritter 8 years ago
1 changed file(s) with 4 addition(s) and 1 deletion(s). Collapse all Expand all
+4
-1
Data/TeLML/Markup.hs less more
55 import Control.Monad (void)
66 import Data.TeLML
77 import Text.Blaze.Html
8 import Text.Blaze.Internal (MarkupM)
98 import Text.Blaze.Html5 hiding (map, head, html)
109 import Text.Blaze.Html5.Attributes hiding (name)
1110
4746 , \case (f,[rs]) -> fmap (strong . sequence_) (mapM f rs)
4847 _ -> Left "wrong arity for strong/1"
4948 )
49 , ("code"
50 , \case (f,[rs]) -> fmap (code . sequence_) (mapM f rs)
51 _ -> Left "wrong arity for strong/1"
52 )
5053 , ("link"
5154 , \case (f,[[Text l],r]) -> let go h = a ! href (stringValue l) $ h
5255 in fmap (go . sequence_) (mapM f r)