jobTable :: JobQueue a -> Html ()
jobTable jobs = do
  table_ [class_ "pure-table"] $ do
    thead_ $ tr_ $ do
      th_ "#"
      th_ "Job Name"
      th_ "Status"
      th_ mempty
    tbody_ $ mapM_ (tr_ . dispJob) $ zip [1..] (jobs ^. qJobs)
  addJobButton
 where
   dispJob (n, job) = td_ (toHtml $ tshow n) <> td_ (toHtml $ job ^. jobName) <> (td_ $ toHtml $ tshow $ job ^. jobStatus) <> (td_ $ modLinks n)
   modLinks :: Int -> Html ()
   modLinks n = do
     a_ [href_ ("/remJob?idx=" <> tshow (n-1))] $ img_ [src_ "icon/remove"]
jobTable :: JobQueue a -> Html ()
jobTable jobs = do
  table_ [class_ "pure-table"] $ do
    thead_ $ tr_ $ do
      th_ "#"
      th_ "Job Name"
      th_ "Status"
      th_ mempty
    tbody_ $ mapM_ (tr_ . dispJob) $ zip [1..] (jobs ^. qJobs)
  addJobButton
 where
   dispJob (n, job) = td_ (toHtml $ tshow n) <> td_ (toHtml $ job ^. jobName) <> (td_ $ toHtml $ tshow $ job ^. jobStatus) <> (td_ $ modLinks n)
   modLinks :: Int -> Html ()
   modLinks n = do
     a_ [href_ ("/remJob?idx=" <> tshow (n-1))] $ img_ [src_ "icon/remove"]
jobTable jobs = do
  table_ [class_ "pure-table"] $ do
    thead_ $ tr_ $ do
      th_ "#"
      th_ "Job Name"
      th_ "Status"
      th_ mempty
    tbody_ $ mapM_ (tr_ . dispJob) $ zip [1..] (jobs ^. qJobs)
  addJobButton
 where
   dispJob (n, job) = td_ (toHtml $ tshow n) <> td_ (toHtml $ job ^. jobName) <> (td_ $ toHtml $ tshow $ job ^. jobStatus) <> (td_ $ modLinks n)
   modLinks :: Int -> Html ()
   modLinks n = do
     a_ [href_ ("/remJob?idx=" <> tshow (n-1))] $ img_ [src_ "icon/remove"]