about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--services/tazblog/src/BlogStore.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/services/tazblog/src/BlogStore.hs b/services/tazblog/src/BlogStore.hs
index 8fc47c84758d..a91db060b825 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