yesod-colonnade 0.4 → 1.1.0
raw patch · 2 files changed
+14/−14 lines, 2 filesdep ~colonnade
Dependency ranges changed: colonnade
Files
- src/Yesod/Colonnade.hs +12/−12
- yesod-colonnade.cabal +2/−2
src/Yesod/Colonnade.hs view
@@ -33,7 +33,7 @@ import Data.Foldable import qualified Text.Blaze.Html5.Attributes as HA import qualified Text.Blaze.Html5 as H-import qualified Colonnade.Encode as Encode+import qualified Colonnade.Encode as E import qualified Data.Text as Text import qualified Data.Text.Lazy as LText import qualified Data.Text.Lazy.Builder as TBuilder@@ -87,13 +87,13 @@ -- ^ Wrapper for items, often @ul@ -> (WidgetT site IO () -> WidgetT site IO () -> WidgetT site IO ()) -- ^ Combines header with data- -> Colonnade Headed (Cell site) a+ -> Colonnade Headed a (Cell site) -- ^ How to encode data as a row -> a -- ^ The value to display -> WidgetT site IO () encodeListItems ulWrap combine enc =- ulWrap . Encode.bothMonadic_ enc+ ulWrap . E.bothMonadic_ enc (\(Cell ha hc) (Cell ba bc) -> li_ (ha <> ba) (combine hc bc) )@@ -104,13 +104,13 @@ encodeDefinitionTable :: Attribute -- ^ Attributes of @table@ element.- -> Colonnade Headed (Cell site) a+ -> Colonnade Headed a (Cell site) -- ^ How to encode data as a row -> a -- ^ The value to display -> WidgetT site IO () encodeDefinitionTable attrs enc a = table_ attrs $ tbody_ mempty $ - Encode.bothMonadic_ enc+ E.bothMonadic_ enc (\theKey theValue -> tr_ mempty $ do widgetFromCell td_ theKey widgetFromCell td_ theValue@@ -122,7 +122,7 @@ -- > encodeHeadedCellTable (HA.class_ "table table-striped") ... encodeHeadedCellTable :: Foldable f => Attribute -- ^ Attributes of @table@ element- -> Colonnade Headed (Cell site) a -- ^ How to encode data as a row+ -> Colonnade Headed a (Cell site) -- ^ How to encode data as a row -> f a -- ^ Rows of data -> WidgetT site IO () encodeHeadedCellTable = encodeTable@@ -130,7 +130,7 @@ encodeHeadlessCellTable :: Foldable f => Attribute -- ^ Attributes of @table@ element- -> Colonnade Headless (Cell site) a -- ^ How to encode data as columns+ -> Colonnade Headless a (Cell site) -- ^ How to encode data as columns -> f a -- ^ Rows of data -> WidgetT site IO () encodeHeadlessCellTable = encodeTable@@ -138,7 +138,7 @@ encodeHeadedWidgetTable :: Foldable f => Attribute -- ^ Attributes of @table@ element- -> Colonnade Headed (WidgetT site IO ()) a -- ^ How to encode data as columns+ -> Colonnade Headed a (WidgetT site IO ()) -- ^ How to encode data as columns -> f a -- ^ Rows of data -> WidgetT site IO () encodeHeadedWidgetTable = encodeTable@@ -146,7 +146,7 @@ encodeHeadlessWidgetTable :: Foldable f => Attribute -- ^ Attributes of @\<table\>@ element- -> Colonnade Headless (WidgetT site IO ()) a -- ^ How to encode data as columns+ -> Colonnade Headless a (WidgetT site IO ()) -- ^ How to encode data as columns -> f a -- ^ Rows of data -> WidgetT site IO () encodeHeadlessWidgetTable = encodeTable@@ -162,17 +162,17 @@ -> (a -> Attribute) -- ^ Attributes of each @\<tr\>@ element -> ((Attribute -> WidgetT site IO () -> WidgetT site IO ()) -> c -> WidgetT site IO ()) -- ^ Wrap content and convert to 'Html' -> Attribute -- ^ Attributes of @\<table\>@ element- -> Colonnade h c a -- ^ How to encode data as a row+ -> Colonnade h a c -- ^ How to encode data as a row -> f a -- ^ Collection of data -> WidgetT site IO () encodeTable mtheadAttrs tbodyAttrs trAttrs wrapContent tableAttrs colonnade xs = table_ tableAttrs $ do for_ mtheadAttrs $ \theadAttrs -> do thead_ theadAttrs $ do- Encode.headerMonadicGeneral_ colonnade (wrapContent th_)+ E.headerMonadicGeneral_ colonnade (wrapContent th_) tbody_ tbodyAttrs $ do forM_ xs $ \x -> do- tr_ (trAttrs x) (Encode.rowMonadic_ colonnade (wrapContent td_) x)+ tr_ (trAttrs x) (E.rowMonadic_ colonnade (wrapContent td_) x) widgetFromCell :: (Attribute -> WidgetT site IO () -> WidgetT site IO ())
yesod-colonnade.cabal view
@@ -1,5 +1,5 @@ name: yesod-colonnade-version: 0.4+version: 1.1.0 synopsis: Helper functions for using yesod with colonnade description: Yesod and colonnade homepage: https://github.com/andrewthad/colonnade#readme@@ -18,7 +18,7 @@ Yesod.Colonnade build-depends: base >= 4.7 && < 5- , colonnade >= 1.0 && < 1.1+ , colonnade >= 1.1 && < 1.2 , yesod-core >= 1.4 && < 1.5 , text >= 1.0 && < 1.3 , blaze-markup >= 0.7 && < 0.9