Merge pull request #255 from ds-wizard/release/4.14.2

Release 4.14.2

Author: vknaisl

registry-public/package.yaml

@@ -1,5 +1,5 @@
 name: registry-public
-version: '4.14.1'
+version: '4.14.2'
 synopsis: Registry Public
 description: Registry Public
 category: Web

registry-server/package.yaml

@@ -1,5 +1,5 @@
 name: registry-server
-version: '4.14.1'
+version: '4.14.2'
 synopsis: Engine Registry
 description: Engine Registry
 category: Web

registry-server/src/Registry/Api/Handler/Swagger/Api.hs

@@ -38,7 +38,7 @@ swagger =
             s._swaggerInfo
               { _infoTitle = "Registry API"
               , _infoDescription = Just "API specification for Registry"
-              , _infoVersion = "4.14.1"
+              , _infoVersion = "4.14.2"
               , _infoLicense =
                   Just $
                     License

shared-common/package.yaml

@@ -1,5 +1,5 @@
 name: shared-common
-version: '4.14.1'
+version: '4.14.2'
 synopsis: Engine Shared
 description: Engine Shared
 category: Web

wizard-common/package.yaml

@@ -1,5 +1,5 @@
 name: wizard-common
-version: '4.14.1'
+version: '4.14.2'
 synopsis: Wizard Engine
 description: Wizard Engine
 category: Web

wizard-public/package.yaml

@@ -1,5 +1,5 @@
 name: wizard-public
-version: '4.14.1'
+version: '4.14.2'
 synopsis: Wizard Public
 description: Wizard Public
 category: Web

wizard-server/package.yaml

@@ -1,5 +1,5 @@
 name: wizard-server
-version: '4.14.1'
+version: '4.14.2'
 synopsis: Engine Wizard
 description: Engine Wizard
 category: Web

wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs

@@ -140,7 +140,7 @@ swagger =
             s._swaggerInfo
               { _infoTitle = "Wizard API"
               , _infoDescription = Just "API specification for Wizard"
-              , _infoVersion = "4.14.1"
+              , _infoVersion = "4.14.2"
               , _infoLicense =
                   Just $
                     License

wizard-server/src/Wizard/Database/DAO/User/UserDAO.hs

@@ -125,7 +125,7 @@ findUserByEmail email = do
 findUserByEmail' :: String -> AppContextM (Maybe User)
 findUserByEmail' email = do
   tenantUuid <- asks currentTenantUuid
-  createFindEntityByFn' entityName [tenantQueryUuid tenantUuid, ("email", email)]
+  createFindEntityByFn' entityName [tenantQueryUuid tenantUuid, ("email", email), ("machine", "false")]
 
 findUserByEmailAndTenantUuid' :: String -> U.UUID -> AppContextM (Maybe User)
 findUserByEmailAndTenantUuid' email tenantUuid = createFindEntityByFn' entityName [tenantQueryUuid tenantUuid, ("email", email)]