Fix race conditions due to MVar usage

CHANGELOG.md

@@ -1,5 +1,14 @@
 # Revision history for dap
 
+## Unreleased -- YYYY-mm-dd
+
+* `Adaptor` has an additional type parameter denoting the type of the request
+    we are responding to. Crucially, this will be `Request` when responding to a
+    DAP request (e.g. in `send***` functions).
+    On the other hand, this will be `()` for the `withAdaptor` continuation
+    argument of `registerNewDebugSession` which unlifts `Adaptor` to `IO`
+    because, when unlifting, we are not replying to any request.
+
 ## 0.1.0.0 -- YYYY-mm-dd
 
 * First version. Released on an unsuspecting world.

dap.cabal

@@ -27,17 +27,17 @@ library
     DAP.Types
     DAP.Utils
   build-depends:
-    aeson                >= 2.0.3  && < 2.1,
+    aeson                >= 2.0.3  && < 2.3,
     aeson-pretty         >= 0.8.9  && < 0.9,
     base                 < 5,
-    bytestring           >= 0.11.4 && < 0.12,
+    bytestring           >= 0.11.4 && < 0.13,
     containers           >= 0.6.5  && < 0.7,
     lifted-base          >= 0.2.3  && < 0.3,
     monad-control        >= 1.0.3  && < 1.1,
-    mtl                  >= 2.2.2  && < 2.3,
+    mtl                  >= 2.2.2  && < 2.4,
     network              >= 3.1.2  && < 3.2,
     network-simple       >= 0.4.5  && < 0.5,
-    text                 >= 1.2.5  && < 1.3,
+    text                 >= 1.2.5  && < 2.2,
     time                 >= 1.11.1 && < 1.12,
     unordered-containers >= 0.2.19 && < 0.3,
     stm                  >= 2.5.0  && < 2.6,

default.nix

@@ -1,6 +1,6 @@
 { pkgs ? import <nixpkgs> {} }:
 let
-  dap = pkgs.haskell.packages.ghc927.callCabal2nix "dap" ./. {};
+  dap = pkgs.haskell.packages.ghc966.callCabal2nix "dap" ./. {};
 in
 {
   inherit dap pkgs;

src/DAP.hs

@@ -1,3 +1,4 @@
+----------------------------------------------------------------------------
 module DAP
   ( module DAP.Adaptor
   , module DAP.Event
@@ -6,10 +7,11 @@ module DAP
   , module DAP.Server
   , module DAP.Types
   ) where
-
+----------------------------------------------------------------------------
 import DAP.Adaptor
 import DAP.Event
 import DAP.Internal
 import DAP.Response
 import DAP.Server
 import DAP.Types
+----------------------------------------------------------------------------