Improved logging
commitf5575517a0f018b7e34c5a2752fc9b633b345873
authoriko <ilyakooo0@gmail.com>
dateFri 8 May 2020, 22:46 (6 years ago)
parent0afb50b
src/Control/Task/Scheduler/Query.hs+1−1
@@ -101,7 +101,7 @@ pickTasksQuery ::
101101 Word64 ->
102102 m [PickedTask]
103103pickTasksQuery tasks limitCount = do
104− logDebug "reading tasks"
104+ logDebug $ "reading tasks " <> T.unwords (T.pack <$> tasks)
105105 let query :: Query_ Schema () PickedTask
106106 query =
107107 select_