sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 18:24:51 +09:00
Code Issues Activity

Add missing signature to function in Vervis.RemoteActorStore

Browse source 
There are many more missing, but... just felt like fixing a warning :)
This commit is contained in:
fr33domlover 2022-09-05 16:25:59 +00:00
parent ac867e56f2
commit 5a6ae76b76
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/RemoteActorStore.hs
View file

@ -41,6 +41,7 @@ import Control.Monad.Logger.CallStack
import Control.Monad.STM import Control.Monad.STM
import Control.Monad.Trans.Except import Control.Monad.Trans.Except
import Control.Monad.Trans.Maybe import Control.Monad.Trans.Maybe
import Control.Monad.Trans.Reader
import Data.Foldable import Data.Foldable
import Data.HashMap.Strict (HashMap) import Data.HashMap.Strict (HashMap)
import Data.Maybe import Data.Maybe
@ -545,6 +546,7 @@ fetchRemoteActor iid host luActor = do
site <- askSite site <- askSite
liftIO $ runShared (siteActorFetchShare site) (ObjURI host luActor) (site, iid) liftIO $ runShared (siteActorFetchShare site) (ObjURI host luActor) (site, iid)
deleteUnusedURAs :: (MonadIO m, MonadLogger m) => ReaderT SqlBackend m ()
deleteUnusedURAs = do deleteUnusedURAs = do
uraids <- E.select $ E.from $ \ ura -> do uraids <- E.select $ E.from $ \ ura -> do
E.where_ $ E.notExists $ E.from $ \ udl -> E.where_ $ E.notExists $ E.from $ \ udl ->