kfm/acms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: kfm:e241a5767f2d0a5c0614e3907ad39cbcc4251f98
Branches Tags
kfm:main
...
compare: kfm:main
Branches Tags
kfm:main

2 Commits
e241a5767f ... main

Author SHA1 Message Date
Kierán Meinhardt
f1eb964504 add cli to nix packages 2024-10-11 17:37:39 +02:00
Kierán Meinhardt
f2144a4574 return UUID on item creation 2024-10-11 17:36:37 +02:00
2 changed files with 6 additions and 4 deletions
Expand all files Collapse all files

6
backend/lib/ACMS/API/REST/Collection.hs
View File

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

4
default.nix
View File

@@ -9,7 +9,8 @@ let
backend = self.callCabal2nix "backend" ./backend { }; backend = self.callCabal2nix "backend" ./backend { };
common = self.callCabal2nix "common" ./common { }; common = self.callCabal2nix "common" ./common { };
frontend = self.callCabal2nix "frontend" ./frontend { }; 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; websockets = pkgs.haskell.lib.doJailbreak super.websockets;
}; };
}; };
@@ -29,6 +30,7 @@ rec {
haskellPackages.autotypes haskellPackages.autotypes
haskellPackages.backend haskellPackages.backend
haskellPackages.common haskellPackages.common
haskellPackages.cli
haskellPackages.frontend haskellPackages.frontend
]; ];
buildInputs = [ buildInputs = [