diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -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.
diff --git a/servant-auth-token-acid.cabal b/servant-auth-token-acid.cabal
--- a/servant-auth-token-acid.cabal
+++ b/servant-auth-token-acid.cabal
@@ -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
diff --git a/src/Servant/Server/Auth/Token/Acid/Schema.hs b/src/Servant/Server/Auth/Token/Acid/Schema.hs
--- a/src/Servant/Server/Auth/Token/Acid/Schema.hs
+++ b/src/Servant/Server/Auth/Token/Acid/Schema.hs
@@ -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