nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

start openapi implememntation

Browse source
This commit is contained in:
nek0 2022-05-28 12:54:13 +02:00
parent 5e70cd6b0f
commit f3891f2bfe
3 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mateamt.cabal
View file

@ -84,9 +84,11 @@ library
, bytestring >=0.10.12.0 , bytestring >=0.10.12.0
, base16-bytestring , base16-bytestring
, base64-bytestring , base64-bytestring
, openapi3 >=3
, random , random
, servant , servant
, servant-server , servant-server
, servant-openapi3
, servant-rawm >= 0.3.0.0 , servant-rawm >= 0.3.0.0
, servant-rawm-server , servant-rawm-server
, opaleye , opaleye

2
src/Model/Auth.hs
View file

@ -49,7 +49,7 @@ import Util.Crypto
initToken :: PGS.Query initToken :: PGS.Query
initToken = mconcat initToken = mconcat
[ "CREATE TABLE IF NOT EXISTS \"token\" (" [ "CREATE TABLE IF NOT EXISTS \"token\" ("
, "token_string TEXT NOT NULL PRIMARY KEY," , "token_string BYTEA NOT NULL PRIMARY KEY,"
, "token_user INTEGER REFERENCES \"user\"(user_id) NOT NULL," , "token_user INTEGER REFERENCES \"user\"(user_id) NOT NULL,"
, "token_expiry TIMESTAMPTZ NOT NULL," , "token_expiry TIMESTAMPTZ NOT NULL,"
, "token_method INT NOT NULL" , "token_method INT NOT NULL"

5
src/Types/Refine.hs
View file

@ -5,6 +5,8 @@ module Types.Refine where
import GHC.Generics import GHC.Generics
import Data.OpenApi (ToParamSchema(..))
import Web.HttpApiData import Web.HttpApiData
data UserRefine = AllUsers | ActiveUsers | OldUsers data UserRefine = AllUsers | ActiveUsers | OldUsers
@ -24,6 +26,7 @@ instance ToHttpApiData UserRefine where
ActiveUsers -> "active" ActiveUsers -> "active"
OldUsers -> "old" OldUsers -> "old"
instance ToParamSchema UserRefine
data ProductRefine = AllProducts | AvailableProducts | DepletedProducts data ProductRefine = AllProducts | AvailableProducts | DepletedProducts
deriving (Generic, Show, Enum) deriving (Generic, Show, Enum)
@ -41,3 +44,5 @@ instance ToHttpApiData ProductRefine where
AllProducts -> "all" AllProducts -> "all"
AvailableProducts -> "available" AvailableProducts -> "available"
DepletedProducts -> "depleted" DepletedProducts -> "depleted"
instance ToParamSchema ProductRefine