diff options
| author | Vincent Ambo <tazjin@google.com> | 2019-08-23T10·42+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@google.com> | 2019-08-23T10·42+0100 |
| commit | fb930e4db76fa71349dfeea78bdf34fb45b574c1 (patch) | |
| tree | 49606d81696118d98327e8deea5ad2d819d39398 | |
| parent | 4f8885197196b58b0878aedd8a6108f66d0959f8 (diff) | |
fix(tazblog): Remove debug trace r/54
| -rw-r--r-- | services/tazblog/src/BlogStore.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/services/tazblog/src/BlogStore.hs b/services/tazblog/src/BlogStore.hs index 8fc47c8475..a91db060b8 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 |