Apply suggestions from code review

hstreamdb · Sep 18, 2023 · 0e97c26 · 0e97c26
1 parent b597fcd
commit 0e97c26
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/hstream-admin/store/HStream/Admin/Store/Command/Logs.hs b/hstream-admin/store/HStream/Admin/Store/Command/Logs.hs
@@ -54,15 +54,13 @@ runLogsUpdate conf UpdateLogsOpts{..} = do
         case res of
           Right loggroup         -> S.logGroupGetAttrs loggroup
           Left (_ :: S.NOTFOUND) -> S.logDirectoryGetAttrs =<< S.getLogDirectory client updatePath
-      putStrLn $ "updateReplicateAcross: " <> show updateReplicateAcross
       let attrs' =
             attrs { logReplicationFactor = maybe logReplicationFactor S.defAttr1 updateReplicationFactor
                   , logSyncedCopies = maybe logSyncedCopies S.defAttr1 updateSyncedCopies
                   , logBacklogDuration = maybe logBacklogDuration (S.defAttr1 . Just) updateBacklogDuration
                   , logReplicateAcross = updateRepAcross updateReplicateAcross logReplicateAcross
                   , logAttrsExtras = updateExtras `Map.union` logAttrsExtras
                   }
-      putStrLn $ "new attrs: " <> show attrs'
       attrsPtr <- S.pokeLogAttributes attrs'
       withForeignPtr attrsPtr $ S.ldWriteAttributes client updatePath
     case res of