From fb930e4db76fa71349dfeea78bdf34fb45b574c1 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@google.com>
Date: Fri, 23 Aug 2019 11:42:23 +0100
Subject: [PATCH] fix(tazblog): Remove debug trace

---
 services/tazblog/src/BlogStore.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/services/tazblog/src/BlogStore.hs b/services/tazblog/src/BlogStore.hs
index 8fc47c847..a91db060b 100644
--- a/services/tazblog/src/BlogStore.hs
+++ b/services/tazblog/src/BlogStore.hs
@@ -42,7 +42,6 @@ import qualified Network.DNS.Resolver as R
 import Data.ByteString.Base64 (decodeLenient)
 import Data.List (sortBy)
 import Data.Either (fromRight)
-import Debug.Trace (trace)
 
 newtype EntryId = EntryId {unEntryId :: Integer}
   deriving (Eq, Ord, FromJSON)
@@ -94,7 +93,7 @@ listEntries cache offset count = liftIO $ do
 
   -- TODO: maybe don't just drop broken entries
   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 cache eid = liftIO $ (entryFromDNS cache eid) >>= \case