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 ->