add cli to nix packages

backend/lib/ACMS/API/REST/Collection.hs

@@ -39,16 +39,16 @@ update c i o =
     & httpLBS
     >>= A.throwDecode . getResponseBody
 
-create :: T.Text -> A.Object -> IO ()
+create :: T.Text -> A.Object -> IO U.UUID
 create c o = do
   uuid <- U.nextRandom
   let i = U.toText uuid <> ".json"
-  "http://localhost:8081"
+  response <- "http://localhost:8081"
     & setRequestMethod "POST"
     & setRequestBodyLBS
       (LB.fromString (printf "INSERT %s INTO %s" (LB.toString (A.encode (AM.insert "$fileName" (A.String i) o))) c))
     & httpLBS
-    >>= A.throwDecode . getResponseBody
+  uuid <$ A.throwDecode @() (getResponseBody response)
 
 delete :: T.Text -> T.Text -> IO [A.Object]
 delete c i =

default.nix

@@ -9,7 +9,8 @@ let
       backend = self.callCabal2nix "backend" ./backend { };
       common = self.callCabal2nix "common" ./common { };
       frontend = self.callCabal2nix "frontend" ./frontend { };
-      sh = self.callCabal2nix "sh" sources.sh { };
+      cli = self.callCabal2nix "cli" ./cli { };
+      sh = pkgs.haskell.lib.dontCheck (self.callCabal2nix "sh" sources.sh { });
       websockets = pkgs.haskell.lib.doJailbreak super.websockets;
     };
   };
@@ -29,6 +30,7 @@ rec {
       haskellPackages.autotypes
       haskellPackages.backend
       haskellPackages.common
+      haskellPackages.cli
       haskellPackages.frontend
     ];
     buildInputs = [