labelRow :: Int -> String -> String -> Perch
labelRow ri ts vs = div ! atr "class" "row" $ mconcat [
    div ! atr "class" (colClass ri) $ label $ toJSString ts
  , div ! atr "class" (colClass (12-ri)) $ toJSString vs
  ]
  where colClass i = "col-md-" ++ show i
labelRow :: Int -> String -> String -> Perch
labelRow ri ts vs = div ! atr "class" "row" $ mconcat [
    div ! atr "class" (colClass ri) $ label $ toJSString ts
  , div ! atr "class" (colClass (12-ri)) $ toJSString vs
  ]
  where colClass i = "col-md-" ++ show i
labelRow ri ts vs = div ! atr "class" "row" $ mconcat [
    div ! atr "class" (colClass ri) $ label $ toJSString ts
  , div ! atr "class" (colClass (12-ri)) $ toJSString vs
  ]
  where colClass i = "col-md-" ++ show i