summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Mysql.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/Mysql.hs')
-rw-r--r--src/Propellor/Property/Mysql.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/Property/Mysql.hs b/src/Propellor/Property/Mysql.hs
index 73d4f62a..fff87337 100644
--- a/src/Propellor/Property/Mysql.hs
+++ b/src/Propellor/Property/Mysql.hs
@@ -157,8 +157,8 @@ databaseExists (Database dbname) =
qdbname = sqlQuote '\'' dbname
trueResult = dbname ++ "\n"
--- Create an user and make sure he has grants on the specific database but no
--- other grant.
+-- | Create an user and make sure he has grants on the specific database but
+-- no other grant.
userGrantedOnDatabase
:: IsContext c
=> User
@@ -183,7 +183,7 @@ userGrantedOnDatabase user@(User username) (Database dbname) privs context =
-- Privilege level for database access.
privLevel = (sqlQuote '`' dbname) ++ ".*"
--- Create an user and make sure he has global grants but no other grant.
+-- | Create an user and make sure he has global grants but no other grant.
userGranted
:: IsContext c
=> User
@@ -203,7 +203,7 @@ userGranted user@(User username) privs context =
"GRANT " ++ privList ++ " ON *.* TO " ++ quser
++ " IDENTIFIED BY PASSWORD '" ++ hash ++ "'\n"
--- Common code to grant or remove an user.
+-- | Common code to grant or remove an user.
userGranted'
:: IsContext c
=> User