@@ -21,6 +21,7 @@ import Data.Word
2121import GHC.TypeLits
2222import Server.Schema
2323import Squeal.PostgreSQL
24+import UnliftIO.Exception
2425
2526scheduleTask ::
2627 (StaticPQ m, WithLog env Message m, Task t s, MonadUnliftIO m) =>
@@ -66,7 +67,9 @@ instance
6667 <> e
6768 A.Success t -> do
6869 logInfo . T.pack $ "running task " <> task <> " with " <> show t <> " created at " <> show initialStartTime
69− r <- performTask @t @ts @m t
70+ r <- performTask @t @ts @m t `catchAny` \e -> do
71+ logError . T.pack . displayException $ e
72+ return Failure
7073 when (r == Failure) $ logWarning . T.pack $ "Task " <> task <> " failed"
7174 case r of
7275 Success -> completeTaskQuery t