src/JobsJobsJobs/Api/Auth.fs

@@ -20,7 +20,6 @@ type MastodonAccount () =
   member val Url = "" with get, set
 
 
-open FSharp.Control.Tasks
 open Microsoft.Extensions.Logging
 open System
 open System.Net.Http

src/JobsJobsJobs/Api/Data.fs

@@ -1,7 +1,6 @@
 /// Data access functions for Jobs, Jobs, Jobs
 module JobsJobsJobs.Api.Data
 
-open FSharp.Control.Tasks
 open JobsJobsJobs.Domain.Types
 open Polly
 open RethinkDb.Driver

src/JobsJobsJobs/Api/Handlers.fs

@@ -1,7 +1,6 @@
 /// Route handlers for Giraffe endpoints
 module JobsJobsJobs.Api.Handlers
 
-open FSharp.Control.Tasks
 open Giraffe
 open JobsJobsJobs.Domain
 open JobsJobsJobs.Domain.SharedTypes
@@ -288,7 +287,7 @@ module Listing =
   // PATCH: /api/listing/[id]
   let expire listingId : HttpHandler =
     authorize
-    >=> fun next ctx -> task {
+    >=> fun next ctx -> FSharp.Control.Tasks.Affine.task {
       let dbConn = conn ctx
       let now    = clock(ctx).GetCurrentInstant ()
       match! Data.Listing.findById (ListingId listingId) dbConn with
@@ -309,8 +308,7 @@ module Listing =
           | None -> ()
           return! ok next ctx
       | None -> return! Error.notFound next ctx
-
-    }
+      }
 
   // GET: /api/listing/search
   let search : HttpHandler =

src/JobsJobsJobs/App/package.json

@@ -1,6 +1,6 @@
 {
   "name": "jobs-jobs-jobs",
-  "version": "2.1.0",
+  "version": "2.2.0",
   "private": true,
   "scripts": {
     "serve": "vue-cli-service serve",

src/JobsJobsJobs/App/src/components/layout/TitleBar.vue

@@ -1,16 +1,34 @@
 <template lang="pug">
-nav.navbar.navbar-light.bg-light
+nav.navbar.navbar-dark.mobile
+  span.navbar-text: router-link(to="/") Jobs, Jobs, Jobs
+  button.btn(data-bs-toggle="offcanvas" data-bs-target="#mobileMenu" aria-controls="mobileMenu")
+    icon(:icon="mdiMenu")
+nav.navbar.navbar-light.bg-light.wide
   span &nbsp;
   span.navbar-text.
     (&hellip;and Jobs &ndash; #[audio-clip(clip="pelosi-jobs") Let&rsquo;s Vote for Jobs!])
 </template>
 
 <script setup lang="ts">
+import { mdiMenu } from "@mdi/js"
 import AudioClip from "@/components/AudioClip.vue"
 </script>
 
 <style lang="sass" scoped>
-.navbar-text
-  font-style: italic
-  padding-right: 1rem
+.mobile
+  background-image: linear-gradient(0deg, green 0%, darkgreen 70%)
+  button
+    padding: 0 1rem 0 0
+  .navbar-text
+    font-weight: bold
+    color: white
+.wide
+  display: none
+@media (min-width: 768px)
+  .wide
+    display: flex
+  .mobile
+    display: none
+  .navbar-text
+    font-style: italic
 </style>