fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix build

Browse Source
This commit is contained in:
Gregor Kleen 2018-08-01 15:43:08 +02:00
parent 3de34cd5ae
commit 7e4da171a1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Foundation.hs
View File

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