fix build

This commit is contained in:
Gregor Kleen 2018-08-01 15:43:08 +02:00
parent 3de34cd5ae
commit 7e4da171a1

View File

@ -1089,6 +1089,8 @@ instance YesodAuth UniWorX where
= (dummyPlugin, dummyIdent)
| otherwise
= (credsPlugin, credsIdent)
isDummy = credsPlugin == "dummy"
isPWFile = credsPlugin == "PWFile"
uAuth = UniqueAuthentication userPlugin userIdent
$logDebugS "auth" $ tshow creds