diff --git a/src/Monocle/Backend/Index.hs b/src/Monocle/Backend/Index.hs index d50e31b3e..56adefd44 100644 --- a/src/Monocle/Backend/Index.hs +++ b/src/Monocle/Backend/Index.hs @@ -822,6 +822,7 @@ orphanTaskDataDocToBHDoc TaskDataDoc {..} = ) taskDataAdd :: MonoQuery :> es => IndexEffects es => Text -> [SearchPB.TaskData] -> Eff es () +taskDataAdd _ [] = pure () taskDataAdd crawlerName tds = do -- extract change URLs from input TDs let urls = from . SearchPB.taskDataChangeUrl <$> tds