Fix HTTP server effect parse errors.

pkg/hs/king/app/Main.hs

@@ -171,7 +171,7 @@ runOrExitImmediately getPier oExit =
     shutdownImmediately (serf, log, ss) = do
         logTrace "Sending shutdown signal"
         logTrace $ displayShow ss
-        io $ threadDelay 500000
+        io $ threadDelay 500000 -- Why is this here? Do I need to force a snapshot to happen?
         ss <- shutdown serf 0
         logTrace $ displayShow ss
         logTrace "Shutdown!"

pkg/hs/king/lib/Arvo/Event.hs

@@ -172,9 +172,9 @@ data HttpClientEv
   deriving (Eq, Ord, Show)
 
 data HttpServerEv
-    = HttpServerEvRequest       (ServId, Atom, UD, ()) HttpServerReq
-    | HttpServerEvCancelRequest (ServId, Atom, UD, ()) ()
-    | HttpServerEvRequestLocal  (ServId, Atom, UD, ()) HttpServerReq
+    = HttpServerEvRequest       (ServId, UD, UD, ()) HttpServerReq
+    | HttpServerEvCancelRequest (ServId, UD, UD, ()) ()
+    | HttpServerEvRequestLocal  (ServId, UD, UD, ()) HttpServerReq
     | HttpServerEvLive          (ServId, ())         Port (Maybe Port)
     | HttpServerEvBorn          (KingId, ())         ()
     | HttpServerEvCrud          Path                 Cord Tang

pkg/hs/king/lib/Vere/Http/Server.hs

@@ -48,7 +48,7 @@ import qualified Network.Wai.Handler.WarpTLS as W
 
 -- Internal Types --------------------------------------------------------------
 
-type ReqId = Atom
+type ReqId = UD
 type SeqId = UD -- Unused, always 1
 
 {-