chore(tazblog): Introduce dependency on 'cache'
This commit is contained in:
parent
b856648127
commit
13b0204c03
3 changed files with 23 additions and 19 deletions
|
@ -15,33 +15,36 @@
|
|||
--
|
||||
-- This module implements logic for assembling a post out of these
|
||||
-- fragments and caching it based on the TTL of its `_meta` record.
|
||||
|
||||
module BlogStore where
|
||||
|
||||
import Data.Text (Text)
|
||||
import Locales (BlogLang(..))
|
||||
import Data.Time (UTCTime)
|
||||
import Control.Monad.IO.Class (MonadIO)
|
||||
import Data.Text (Text)
|
||||
import Data.Time (UTCTime)
|
||||
import Locales (BlogLang (..))
|
||||
|
||||
newtype EntryId = EntryId { unEntryId :: Integer }
|
||||
deriving (Eq, Ord)
|
||||
newtype EntryId = EntryId {unEntryId :: Integer}
|
||||
deriving (Eq, Ord)
|
||||
|
||||
instance Show EntryId where
|
||||
|
||||
show = show . unEntryId
|
||||
|
||||
data Entry = Entry {
|
||||
entryId :: EntryId,
|
||||
lang :: BlogLang,
|
||||
author :: Text,
|
||||
title :: Text,
|
||||
btext :: Text,
|
||||
mtext :: Text,
|
||||
edate :: UTCTime
|
||||
} deriving (Eq, Ord, Show)
|
||||
data Entry
|
||||
= Entry
|
||||
{ entryId :: EntryId,
|
||||
lang :: BlogLang,
|
||||
author :: Text,
|
||||
title :: Text,
|
||||
btext :: Text,
|
||||
mtext :: Text,
|
||||
edate :: UTCTime
|
||||
}
|
||||
deriving (Eq, Ord, Show)
|
||||
|
||||
data BlogCache
|
||||
|
||||
type Offset = Integer
|
||||
|
||||
type Count = Integer
|
||||
|
||||
newCache :: String -> IO BlogCache
|
||||
|
|
|
@ -19,6 +19,7 @@ library
|
|||
text,
|
||||
blaze-html,
|
||||
blaze-markup,
|
||||
cache,
|
||||
crypto-api,
|
||||
cryptohash,
|
||||
old-locale,
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
{ mkDerivation, acid-state, base, base64-bytestring, blaze-html
|
||||
, blaze-markup, bytestring, crypto-api, cryptohash, hamlet
|
||||
, happstack-server, ixset, markdown, mtl, network, network-uri
|
||||
, old-locale, options, rss, safecopy, shakespeare, stdenv, text
|
||||
, blaze-markup, bytestring, cache, crypto-api, cryptohash, hamlet
|
||||
, happstack-server, markdown, mtl, network, network-uri
|
||||
, old-locale, options, rss, shakespeare, stdenv, text
|
||||
, time, transformers
|
||||
}:
|
||||
mkDerivation {
|
||||
|
@ -12,7 +12,7 @@ mkDerivation {
|
|||
isExecutable = true;
|
||||
libraryHaskellDepends = [
|
||||
base base64-bytestring blaze-html blaze-markup bytestring
|
||||
crypto-api cryptohash hamlet happstack-server markdown mtl
|
||||
cache crypto-api cryptohash hamlet happstack-server markdown mtl
|
||||
network network-uri old-locale rss shakespeare text time
|
||||
transformers
|
||||
];
|
||||
|
|
Loading…
Reference in a new issue