Minor cleanup

This commit is contained in:
Gregor Kleen 2018-07-07 21:35:46 +02:00
parent feb3f6332b
commit bbcf925019

2
db.hs
View File

@ -26,7 +26,7 @@ data DBAction = DBClear
argsDescr :: [OptDescr DBAction]
argsDescr =
[ Option ['c'] ["clear"] (NoArg DBClear) "Delete everything accessable by the current database user"
, Option ['f'] ["fill"] (NoArg DBFill) "Fill database with example data"
, Option ['f'] ["fill"] (NoArg DBFill) "Fill database with example data"
]