From 5a6ae76b761701cc2e5a16f7ecdfd7564afab882 Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Mon, 5 Sep 2022 16:25:59 +0000 Subject: [PATCH] Add missing signature to function in Vervis.RemoteActorStore There are many more missing, but... just felt like fixing a warning :) --- src/Vervis/RemoteActorStore.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Vervis/RemoteActorStore.hs b/src/Vervis/RemoteActorStore.hs index a47157b..82fd42c 100644 --- a/src/Vervis/RemoteActorStore.hs +++ b/src/Vervis/RemoteActorStore.hs @@ -41,6 +41,7 @@ import Control.Monad.Logger.CallStack import Control.Monad.STM import Control.Monad.Trans.Except import Control.Monad.Trans.Maybe +import Control.Monad.Trans.Reader import Data.Foldable import Data.HashMap.Strict (HashMap) import Data.Maybe @@ -545,6 +546,7 @@ fetchRemoteActor iid host luActor = do site <- askSite liftIO $ runShared (siteActorFetchShare site) (ObjURI host luActor) (site, iid) +deleteUnusedURAs :: (MonadIO m, MonadLogger m) => ReaderT SqlBackend m () deleteUnusedURAs = do uraids <- E.select $ E.from $ \ ura -> do E.where_ $ E.notExists $ E.from $ \ udl ->