about summary refs log tree commit diff
path: root/services
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@google.com>2019-08-20T06·09+0100
committerVincent Ambo <tazjin@google.com>2019-08-20T06·09+0100
commit13b0204c0391697b41cdfb80e96da6945808e25d (patch)
tree87c0307a96bc7649b61eb85460200b24e537f629 /services
parentb856648127e89321db338344019544a4fcdcbf93 (diff)
chore(tazblog): Introduce dependency on 'cache' r/46
Diffstat (limited to 'services')
-rw-r--r--services/tazblog/src/BlogStore.hs33
-rw-r--r--services/tazblog/tazblog.cabal1
-rw-r--r--services/tazblog/tazblog.nix8
3 files changed, 23 insertions, 19 deletions
diff --git a/services/tazblog/src/BlogStore.hs b/services/tazblog/src/BlogStore.hs
index 5ed67ac938..e4c7a64b26 100644
--- a/services/tazblog/src/BlogStore.hs
+++ b/services/tazblog/src/BlogStore.hs
@@ -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
diff --git a/services/tazblog/tazblog.cabal b/services/tazblog/tazblog.cabal
index ac0c418e32..3a946e01ba 100644
--- a/services/tazblog/tazblog.cabal
+++ b/services/tazblog/tazblog.cabal
@@ -19,6 +19,7 @@ library
                  text,
                  blaze-html,
                  blaze-markup,
+                 cache,
                  crypto-api,
                  cryptohash,
                  old-locale,
diff --git a/services/tazblog/tazblog.nix b/services/tazblog/tazblog.nix
index cb62383826..9708346590 100644
--- a/services/tazblog/tazblog.nix
+++ b/services/tazblog/tazblog.nix
@@ -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
   ];