comment
This commit is contained in:
parent
3b93849a0e
commit
771eaa9c42
|
@ -156,6 +156,7 @@ buildData = do
|
||||||
return $ set pwPolicy p d)
|
return $ set pwPolicy p d)
|
||||||
(return d)
|
(return d)
|
||||||
|
|
||||||
|
-- TODO: refactor this monstrosity
|
||||||
editPolicy :: PWPolicy -> Request PWPolicy
|
editPolicy :: PWPolicy -> Request PWPolicy
|
||||||
editPolicy p = if validatePWPolicy p
|
editPolicy p = if validatePWPolicy p
|
||||||
then do
|
then do
|
||||||
|
|
Loading…
Reference in New Issue
Block a user