mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(tazblog): Remove debug trace

Browse source
This commit is contained in:
Vincent Ambo 2019-08-23 11:42:23 +01:00
parent 4f88851971
commit fb930e4db7
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
services/tazblog/src/BlogStore.hs
View file

@ -42,7 +42,6 @@ import qualified Network.DNS.Resolver as R
import Data.ByteString.Base64 (decodeLenient) import Data.ByteString.Base64 (decodeLenient)
import Data.List (sortBy) import Data.List (sortBy)
import Data.Either (fromRight) import Data.Either (fromRight)
import Debug.Trace (trace)
newtype EntryId = EntryId {unEntryId :: Integer} newtype EntryId = EntryId {unEntryId :: Integer}
deriving (Eq, Ord, FromJSON) deriving (Eq, Ord, FromJSON)
@ -94,7 +93,7 @@ listEntries cache offset count = liftIO $ do
-- TODO: maybe don't just drop broken entries -- TODO: maybe don't just drop broken entries
return return
$ fromRight (error "no entries") $ sequence $ trace (show entries) entries $ fromRight (error "no entries") $ sequence entries
getEntry :: MonadIO m => BlogCache -> EntryId -> m (Maybe Entry) getEntry :: MonadIO m => BlogCache -> EntryId -> m (Maybe Entry)
getEntry cache eid = liftIO $ (entryFromDNS cache eid) >>= \case getEntry cache eid = liftIO $ (entryFromDNS cache eid) >>= \case