add payment create

Author: mejgun

haskell-uon.cabal

@@ -1,11 +1,11 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.37.0.
+-- This file has been generated from package.yaml by hpack version 0.38.0.
 --
 -- see: https://github.com/sol/hpack
 
 name:           haskell-uon
-version:        0.1.2.14
+version:        0.1.3.0
 description:    Please see the README on GitHub at <https://github.com/mejgun/haskell-uon#readme>
 homepage:       https://github.com/mejgun/haskell-uon#readme
 bug-reports:    https://github.com/mejgun/haskell-uon/issues
@@ -40,6 +40,7 @@ library
       UON.Manager
       UON.Manager.GetOffice
       UON.Office
+      UON.Payment
       UON.Reminder
       UON.Reminder.Create
       UON.Reminder.Search
@@ -66,7 +67,6 @@ library
     , http-client
     , req
     , scientific
-    , sqlite-simple
     , text
     , time
     , unordered-containers

package.yaml

@@ -1,5 +1,5 @@
 name:                haskell-uon
-version:             0.1.2.14
+version:             0.1.3.0
 github:              "mejgun/haskell-uon"
 license:             MIT
 author:              "mejgun"
@@ -46,7 +46,6 @@ library:
     - bytestring
     - vector
     - scientific
-    - sqlite-simple
   default-extensions:
     - OverloadedStrings
     - NoFieldSelectors

src/UON/Payment.hs

@@ -0,0 +1,60 @@
+module UON.Payment
+  ( create,
+    SearchParam (..),
+    TypeId (..),
+    CioId (..),
+  )
+where
+
+import Data.Aeson (FromJSON)
+import Data.Aeson qualified as Aeson
+import Data.Text qualified as T
+import GHC.Generics (Generic)
+import Network.HTTP.Req ((=:))
+import UON qualified (Key)
+import UON.Internal.Param (Param (toQuery))
+import UON.Internal.Request qualified as Request
+
+data SearchParam
+  = Id Int -- ID заявки
+  | CioId CioId -- Вид платежа
+  | TypeId TypeId -- Тип платежа
+  | Price Double -- Стоимость клиенту
+  | FormId Int -- ID вида платежа
+  | Note T.Text -- Примечание по платежу
+  | Reason T.Text -- Основание платежа
+
+data TypeId = Clients | Partners
+
+data CioId = Arrival | Expense
+
+instance Param SearchParam where
+  toQuery (Id x) = "r_id" =: x
+  toQuery (Price x) = "price" =: x
+  toQuery (Note x) = "note" =: x
+  toQuery (Reason x) = "reason" =: x
+  toQuery (FormId x) = "form_id" =: x
+  toQuery (TypeId x) =
+    "type_id" =: case x of
+      Clients -> 1 :: Int
+      Partners -> 2
+  toQuery (CioId x) =
+    "cio_id" =: case x of
+      Arrival -> 1 :: Int
+      Expense -> 2
+
+newtype Res = Res {result :: Maybe Int}
+  deriving (Generic)
+
+instance FromJSON Res
+
+create :: UON.Key -> [SearchParam] -> IO (Either T.Text ())
+create k p = do
+  a <- Request.post ["payment", "create"] k p
+  case a of
+    Request.Ok (v :: Aeson.Value) ->
+      case Aeson.fromJSON v of
+        (Aeson.Success (Res {result = Just 200})) -> pure $ Right ()
+        _ -> pure $ Left $ "unknown result: " <> T.pack (show v)
+    Request.Status _ t -> pure $ Left t
+    Request.Error t -> pure $ Left t

stack.yaml

@@ -8,7 +8,7 @@
 # A snapshot resolver dictates the compiler version and the set of packages
 # to be used for project dependencies. For example:
 #
-resolver: lts-21.25
+resolver: lts-22.44
 # resolver: nightly-2015-09-21
 # resolver: ghc-7.10.2
 #

stack.yaml.lock

@@ -1,12 +1,12 @@
 # This file was autogenerated by Stack.
 # You should not edit this file by hand.
 # For more information, please see the documentation at:
-#   https://docs.haskellstack.org/en/stable/lock_files
+#   https://docs.haskellstack.org/en/stable/topics/lock_files
 
 packages: []
 snapshots:
 - completed:
-    sha256: a81fb3877c4f9031e1325eb3935122e608d80715dc16b586eb11ddbff8671ecd
-    size: 640086
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/25.yaml
-  original: lts-21.25
+    sha256: 238fa745b64f91184f9aa518fe04bdde6552533d169b0da5256670df83a0f1a9
+    size: 721141
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/22/44.yaml
+  original: lts-22.44