DB: Remove the "manual" fields from follow records

Follows used to be added automatically, without a Follow activity sent by the
client. They aren't added automatically anymore, so there's no need for those
"manual" boolean fields.

config/models

@@ -176,7 +176,6 @@ FollowerSet
 Follow
     person PersonId
     target FollowerSetId
-    manual Bool
     public Bool
     follow OutboxItemId
     accept OutboxItemId
@@ -188,7 +187,6 @@ Follow
 RemoteFollow
     actor  RemoteActorId
     target FollowerSetId
-    manual Bool
     public Bool
     follow RemoteActivityId
     accept OutboxItemId

src/Vervis/API.hs

@@ -576,7 +576,7 @@ followC shrUser summary audience follow@(AP.Follow uObject muContext hide) = run
         return (obiid, doc, luAct)
 
     deliverFollowLocal pidAuthor fsid unread obiidF obiidA ibidRecip = do
-        insert_ $ Follow pidAuthor fsid True (not hide) obiidF obiidA
+        insert_ $ Follow pidAuthor fsid (not hide) obiidF obiidA
         ibiid <- insert $ InboxItem unread
         insert_ $ InboxItemLocal ibidRecip obiidF ibiid
 

src/Vervis/Federation/Offer.hs

@@ -283,7 +283,7 @@ followF
 
     insertFollow ractid obiidA fsid = do
         let raid = remoteAuthorId author
-        mrfid <- insertUnique $ RemoteFollow raid fsid True (not hide) ractid obiidA
+        mrfid <- insertUnique $ RemoteFollow raid fsid (not hide) ractid obiidA
         return $ isJust mrfid
 
     insertAcceptToOutbox ra luFollow obidRecip = do

src/Vervis/Migration.hs

@@ -1087,6 +1087,10 @@ changes hLocal ctx =
     , addFieldRefRequiredEmpty "RemoteFollow" "accept" "OutboxItem"
       -- 148
     , addUnique "RemoteFollow" $ Unique "UniqueRemoteFollowAccept" ["accept"]
+      -- 149
+    , removeField "Follow" "manual"
+      -- 150
+    , removeField "RemoteFollow" "manual"
     ]
 
 migrateDB