Safe Haskell | Safe-Inferred |
---|
Synopsis
- data SomeView where
- data EmptyView = EmptyView
- newtype HtmlView = HtmlView Html
- renderStatus :: (ApplyAttribute value, IsString value, HasField "lastError" r (Maybe value), HasField "status" r JobStatus) => r -> Html
- renderBaseJobTable :: Text -> [BaseJob] -> Html
- renderBaseJobTablePaginated :: Text -> [BaseJob] -> Pagination -> Html
- renderBaseJobTableRow :: BaseJob -> Html
- renderNewBaseJobLink :: Text -> Html
- renderNewBaseJobForm :: Text -> Html
- renderBaseJobDetailView :: BaseJob -> Html
- makeDashboardSectionFromTableViewable :: forall a. (TableViewable a, ?context :: ControllerContext, ?modelContext :: ModelContext) => IO SomeView
- renderTableViewableTable :: forall a. TableViewable a => [a] -> Html
- makeListPageFromTableViewable :: forall a. (TableViewable a, ?context :: ControllerContext, ?modelContext :: ModelContext) => Int -> Int -> IO SomeView
- renderTableViewableTablePaginated :: forall a. TableViewable a => [a] -> Int -> Int -> Html
- retryButtonStyle :: Text
Documentation
Provides a type-erased view. This allows us to specify a view as a return type without needed to know exactly what type the view will be, which in turn allows for custom implmentations of almost all the view functions in this module. Go GADTs!
Instances
A view containing no data. Used occasionally as a default implementation for some functions.
A view constructed from some HTML.
renderStatus :: (ApplyAttribute value, IsString value, HasField "lastError" r (Maybe value), HasField "status" r JobStatus) => r -> Html Source #
renderBaseJobTablePaginated :: Text -> [BaseJob] -> Pagination -> Html Source #
renderBaseJobTableRow :: BaseJob -> Html Source #
renderNewBaseJobLink :: Text -> Html Source #
Link included in table to create a new job.
renderNewBaseJobForm :: Text -> Html Source #
makeDashboardSectionFromTableViewable :: forall a. (TableViewable a, ?context :: ControllerContext, ?modelContext :: ModelContext) => IO SomeView Source #
renderTableViewableTable :: forall a. TableViewable a => [a] -> Html Source #
makeListPageFromTableViewable :: forall a. (TableViewable a, ?context :: ControllerContext, ?modelContext :: ModelContext) => Int -> Int -> IO SomeView Source #
renderTableViewableTablePaginated :: forall a. TableViewable a => [a] -> Int -> Int -> Html Source #