From c76a38b1f595d56b6972d053f41bc38a80f36923 Mon Sep 17 00:00:00 2001 From: Nicolas Schodet Date: Mon, 25 Mar 2019 22:04:20 +0100 Subject: Mysql: add missing documentation markup --- src/Propellor/Property/Mysql.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3