Catch early death of server thread during testing

1 files changed, 12 insertions, 11 deletions

diff --git a/server/thermoprint-server.nix b/server/thermoprint-server.nix
index 69ecd2f..6ff8b10 100644
--- a/server/thermoprint-server.nix
+++ b/server/thermoprint-server.nix
@@ -1,11 +1,11 @@
-{ mkDerivation, base, binary, bytestring, conduit, containers
-, data-default-class, deepseq, dyre, either, encoding, exceptions
-, extended-reals, filelock, hspec, mmorph, monad-control
-, monad-logger, mtl, network-uri, persistent, persistent-sqlite
-, persistent-template, QuickCheck, quickcheck-instances, resourcet
-, servant, servant-server, stdenv, stm, temporary, text
-, thermoprint-client, thermoprint-spec, time, transformers, wai
-, wai-websockets, warp, websockets
+{ mkDerivation, async, base, binary, bytestring, conduit
+, containers, data-default-class, deepseq, dyre, either, encoding
+, exceptions, extended-reals, filelock, hspec, mmorph
+, monad-control, monad-logger, mtl, network-uri, persistent
+, persistent-sqlite, persistent-template, QuickCheck
+, quickcheck-instances, resourcet, servant, servant-server, stdenv
+, stm, temporary, text, thermoprint-client, thermoprint-spec, time
+, transformers, wai, wai-websockets, warp, websockets
 }:
 mkDerivation {
   pname = "thermoprint-server";
@@ -25,9 +25,10 @@ mkDerivation {
     base monad-logger mtl persistent-sqlite resourcet
   ];
   testHaskellDepends = [
-    base containers exceptions hspec monad-logger mtl persistent-sqlite
-    QuickCheck quickcheck-instances resourcet stm temporary text
-    thermoprint-client thermoprint-spec transformers warp
+    async base containers exceptions hspec monad-logger mtl
+    persistent-sqlite QuickCheck quickcheck-instances resourcet stm
+    temporary text thermoprint-client thermoprint-spec transformers
+    warp
   ];
   homepage = "http://dirty-haskell.org/tags/thermoprint.html";
   description = "Server for thermoprint-spec";