diff --git a/src/Vervis/Federation.hs b/src/Vervis/Federation.hs
index 7273498..3734227 100644
--- a/src/Vervis/Federation.hs
+++ b/src/Vervis/Federation.hs
@@ -14,7 +14,7 @@
  -}
 
 module Vervis.Federation
-    ( handleActivity
+    ( handleInboxActivity
     )
 where
 
@@ -52,8 +52,8 @@ import Vervis.Settings
 -- | Handle an activity that came to our inbox. Return a description of what we
 -- did, and whether we stored the activity or not (so that we can decide
 -- whether to log it for debugging).
-handleActivity :: Object -> Text -> InstanceId -> RemoteSharerId -> Activity -> Handler (Text, Bool)
-handleActivity raw hActor iidActor rsidActor (Activity _id _luActor audience specific) =
+handleInboxActivity :: Object -> Text -> InstanceId -> RemoteSharerId -> Activity -> Handler (Text, Bool)
+handleInboxActivity raw hActor iidActor rsidActor (Activity _id _luActor audience specific) =
     case specific of
         CreateActivity (Create note) -> do
             result <- runExceptT $ handleCreate iidActor hActor rsidActor raw audience note
diff --git a/src/Vervis/Handler/Inbox.hs b/src/Vervis/Handler/Inbox.hs
index a4ba298..db8544c 100644
--- a/src/Vervis/Handler/Inbox.hs
+++ b/src/Vervis/Handler/Inbox.hs
@@ -134,7 +134,7 @@ postInboxR = do
     case r of
         Right (ct, (WithValue raw d@(Doc h a), (iid, rsid))) ->
             forkHandler (handleWorkerError now ct d) $ do
-                (msg, stored) <- handleActivity raw h iid rsid a
+                (msg, stored) <- handleInboxActivity raw h iid rsid a
                 if stored
                     then recordUsed now msg
                     else recordUnused now ct d msg