summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorNicolas Schodet2019-03-25 22:04:20 +0100
committerNicolas Schodet2019-03-26 00:26:08 +0100
commitc76a38b1f595d56b6972d053f41bc38a80f36923 (patch)
tree20d61820c2f5fd3832cbd5b089154ccdd3c80a78 /src
parent7efb5603f6fd4f099d76cd4c01524af7bdac648e (diff)
Mysql: add missing documentation markup
Diffstat (limited to 'src')
-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