webpage 0.0.3 → 0.0.3.1
raw patch · 2 files changed
+10/−1 lines, 2 files
Files
- src/Web/Page/Types.hs +8/−0
- webpage.cabal +2/−1
src/Web/Page/Types.hs view
@@ -1,10 +1,12 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE ExtendedDefaultRules #-}+{-# LANGUAGE TemplateHaskell #-} module Web.Page.Types where import Data.Default import Data.Monoid+-- import Control.Lens -- | Generic layout for a web page. We keep the data type purely parametric to -- allow for record-syntax overloading / reassignment, like this:@@ -24,5 +26,11 @@ } deriving Show +-- makeLenses ''WebPage++ instance (Monoid m, Monoid a) => Default (WebPage m a) where def = WebPage mempty mempty mempty mempty mempty mempty mempty mempty++emptyPage :: (Monoid m, Monoid a) => WebPage m a+emptyPage = WebPage mempty mempty mempty mempty mempty mempty mempty mempty
webpage.cabal view
@@ -1,5 +1,5 @@ Name: webpage-Version: 0.0.3+Version: 0.0.3.1 Author: Athan Clark <athan.clark@gmail.com> Maintainer: Athan Clark <athan.clark@gmail.com> License: MIT@@ -54,6 +54,7 @@ , hastache , text , data-default+ -- , lens Source-Repository head Type: git