panel :: String -> Perch -> Perch
panel ts bd = div ! atr "class" "panel panel-default" $ mconcat [
    div ! atr "class" "panel-heading" $ h3 ! atr "class" "panel-title" $ toJSString ts
  , div ! atr "class" "panel-body" $ bd
  ]
panel :: String -> Perch -> Perch
panel ts bd = div ! atr "class" "panel panel-default" $ mconcat [
    div ! atr "class" "panel-heading" $ h3 ! atr "class" "panel-title" $ toJSString ts
  , div ! atr "class" "panel-body" $ bd
  ]
panel ts bd = div ! atr "class" "panel panel-default" $ mconcat [
    div ! atr "class" "panel-heading" $ h3 ! atr "class" "panel-title" $ toJSString ts
  , div ! atr "class" "panel-body" $ bd
  ]