Add ability to disabled instances (#33)

src/JobsJobsJobs/Server/App.fs

@@ -63,7 +63,7 @@ let configureServices (svc : IServiceCollection) =
     svc.Configure<AuthOptions> (cfg.GetSection "Auth") |> ignore
     
     let dbCfg = cfg.GetSection "Rethink"
-    let log   = svcs.GetRequiredService<ILoggerFactory>().CreateLogger (nameof Data.Startup)
+    let log   = svcs.GetRequiredService<ILoggerFactory>().CreateLogger "JobsJobsJobs.Api.Data.Startup"
     let conn  = Data.Startup.createConnection dbCfg log
     svc.AddSingleton conn |> ignore
     Data.Startup.establishEnvironment dbCfg log conn |> Data.awaitIgnore

src/JobsJobsJobs/Server/Handlers.fs

@@ -182,11 +182,13 @@ module Instances =
 
     /// Convert a Mastodon instance to the one we use in the API
     let private toInstance (inst : MastodonInstance) =
-        { name     = inst.Name
-          url      = inst.Url
-          abbr     = inst.Abbr
-          clientId = inst.ClientId
-          }
+        { name      = inst.Name
+          url       = inst.Url
+          abbr      = inst.Abbr
+          clientId  = inst.ClientId
+          isEnabled = inst.IsEnabled
+          reason    = inst.Reason
+        }
 
     // GET: /api/instances
     let all : HttpHandler = fun next ctx -> task {

src/JobsJobsJobs/Server/JobsJobsJobs.Server.fsproj

@@ -28,7 +28,9 @@
     <PackageReference Include="NodaTime.Serialization.JsonNet" Version="3.0.0" />
     <PackageReference Include="Polly" Version="7.2.2" />
     <PackageReference Include="RethinkDb.Driver" Version="2.3.150" />
-    <PackageReference Include="System.IdentityModel.Tokens.Jwt" Version="6.11.1" />
+    <PackageReference Include="RethinkDb.Driver.FSharp" Version="0.9.0-beta-05" />
+    <PackageReference Include="System.IdentityModel.Tokens.Jwt" Version="6.21.0" />
+    <PackageReference Update="FSharp.Core" Version="6.0.5" />
   </ItemGroup>
 
 </Project>

src/JobsJobsJobs/Server/appsettings.json

@@ -5,17 +5,23 @@
       "0": {
         "Name": "No Agenda Social",
         "Url": "https://noagendasocial.com",
-        "Abbr": "nas"
+        "Abbr": "nas",
+        "IsEnabled": true,
+        "Reason": ""
       },
       "1": {
         "Name": "ITM Slaves!",
         "Url": "https://itmslaves.com",
-        "Abbr": "itm"
+        "Abbr": "itm",
+        "IsEnabled": false,
+        "Reason": "This site has changed platforms, and its integration is not yet restored"
       },
       "2": {
         "Name": "Liberty Woof",
         "Url": "https://libertywoof.com",
-        "Abbr": "lw"
+        "Abbr": "lw",
+        "IsEnabled": false,
+        "Reason": "This site may have gone away; it is currently inaccessible"
       }
     }
   }