use rest api in cli
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -16,6 +16,7 @@ executable cli
|
||||
ghc-options: -Wall
|
||||
build-depends:
|
||||
aeson,
|
||||
backend,
|
||||
base,
|
||||
bytestring,
|
||||
filepath,
|
||||
|
||||
Reference in New Issue
Block a user