servant-auth-token-acid 0.4.0.0 → 0.4.1.0

raw patch · 3 files changed

+20/−5 lines, 3 files

Files

CHANGELOG.md +6/−1
servant-auth-token-acid.cabal +1/−1
src/Servant/Server/Auth/Token/Acid/Schema.hs +13/−3

CHANGELOG.md view

@@ -1,4 +1,9 @@-0.3.2.0+0.4.1.0+=======++* Extract `acidQueries` function.++0.4.0.0 =======  * Initial factor out from parent package.

servant-auth-token-acid.cabal view

@@ -1,5 +1,5 @@ name:                servant-auth-token-acid-version:             0.4.0.0+version:             0.4.1.0 synopsis:            Acid-state backend for servant-auth-token server description:         Please see README.md homepage:            https://github.com/ncrashed/servant-auth-token#readme

src/Servant/Server/Auth/Token/Acid/Schema.hs view

@@ -109,9 +109,15 @@ class HasModelRead a => HasModelWrite a where   putModel :: a -> Model -> a --- | The end user should inline this TH in his code-makeModelAcidic :: Name -> DecsQ-makeModelAcidic globalStateName = makeAcidic globalStateName [+-- | List of queries of the backend. Can be used if you want additional queries alongside+-- with the auth ones.+--+-- Usage:+-- @+-- makeAcidic ''Model (acidQueries ++ [{- your queries herer-}])+-- @+acidQueries :: [Name]+acidQueries = [     mkName "getUserImpl"   , mkName "getUserImplByLogin"   , mkName "listUsersPaged"@@ -151,6 +157,10 @@   , mkName "insertAuthToken"   , mkName "replaceAuthToken"   ]++-- | The end user should inline this TH in his code+makeModelAcidic :: Name -> DecsQ+makeModelAcidic globalStateName = makeAcidic globalStateName acidQueries  instance HasModelRead Model where   askModel = id