Allow a collective to re-index their data

If something goes wrong, this might be necessary.

modules/webapp/src/main/elm/Api.elm

@@ -78,6 +78,7 @@ module Api exposing
     , setUnconfirmed
     , startOnceNotifyDueItems
     , startOnceScanMailbox
+    , startReIndex
     , submitNotifyDueItems
     , updateNotifyDueItems
     , updateScanMailbox
@@ -149,6 +150,20 @@ import Util.Http as Http2
 
 
 
+--- Full-Text
+
+
+startReIndex : Flags -> (Result Http.Error BasicResult -> msg) -> Cmd msg
+startReIndex flags receive =
+    Http2.authPost
+        { url = flags.config.baseUrl ++ "/api/v1/sec/fts/reIndex"
+        , account = getAccount flags
+        , body = Http.emptyBody
+        , expect = Http.expectJson receive Api.Model.BasicResult.decoder
+        }
+
+
+
 --- Scan Mailboxes