diff --git a/src/Vervis/API.hs b/src/Vervis/API.hs
index 6a8b47f..0c0dbcc 100644
--- a/src/Vervis/API.hs
+++ b/src/Vervis/API.hs
@@ -922,6 +922,8 @@ createNoteC (Entity pidUser personUser) sharerUser summary audience note muTarge
                 if u == u'
                     then Nothing
                     else Just $ Right u'
+        checkParent _            _                           =
+            error "A situation I missed in pattern matching, fix it?"
     checkFederation remoteRecips = do
         federation <- asksSite $ appFederation . appSettings
         unless (federation || null remoteRecips) $
diff --git a/src/Vervis/ActivityPub.hs b/src/Vervis/ActivityPub.hs
index 569fcd2..73c69cb 100644
--- a/src/Vervis/ActivityPub.hs
+++ b/src/Vervis/ActivityPub.hs
@@ -1302,6 +1302,7 @@ getOutboxActorEntity obid = do
         (Just p, Nothing, Nothing) -> return $ ActorPerson p
         (Nothing, Just j, Nothing) -> return $ ActorProject j
         (Nothing, Nothing, Just r) -> return $ ActorRepo r
+        _ -> error "obid used by multiple actors"
 
 actorEntityPath (ActorPerson (Entity _ p)) =
     LocalActorSharer . sharerIdent <$> getJust (personIdent p)
diff --git a/vervis.cabal b/vervis.cabal
index 356c3ca..7657ab0 100644
--- a/vervis.cabal
+++ b/vervis.cabal
@@ -399,7 +399,7 @@ library
 
   if flag(dev) || flag(library-only)
     cpp-options:       -DDEVELOPMENT
-    ghc-options:       -Wall -fwarn-tabs -O0
+    ghc-options:       -Wall -fwarn-tabs -O0 -Werror=incomplete-patterns
   else
     ghc-options:       -Wall -fwarn-tabs -O2