This commit is contained in:
Jonathan Lamothe 2018-12-24 02:32:22 -05:00
parent 3b93849a0e
commit 771eaa9c42

View File

@ -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