priority = option 0 (do{ d <- digit ; return (digitToInt d) })
nameParser = option str ( long "name" <> short 'n' )
priority = option 0 (digitToInt <$> digit)
option $ span $ toHtml "foo"Result:
<option><span>foo</span></option>
priority = option 0 (do{ d <- digit ; return (digitToInt d) })
priority = option 0 (digitToInt <$> digit)
option a p = p // unit a