diff --git a/app/Main.hs b/app/Main.hs
index a848716..a49be24 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -156,6 +156,7 @@ buildData = do
       return $ set pwPolicy p d)
     (return d)
 
+-- TODO: refactor this monstrosity
 editPolicy :: PWPolicy -> Request PWPolicy
 editPolicy p = if validatePWPolicy p
   then do