use rest api in cli

This commit is contained in:
2024-10-11 15:44:54 +02:00
parent 309250b6a1
commit 3ff98358c0
2 changed files with 3 additions and 2 deletions

View File

@@ -7,7 +7,7 @@
module Main where
import API.Collection qualified
import ACMS.API.REST.Collection qualified
import Control.Applicative ((<**>))
import Data.Aeson qualified as J
import Data.ByteString.Lazy qualified as LB
@@ -83,6 +83,6 @@ main = do
}
} ->
print
=<< API.Collection.insert collectionName fileName
=<< ACMS.API.REST.Collection.create collectionName fileName
=<< J.throwDecode
=<< LB.getContents