diff --git a/db.hs b/db.hs
index ed16a1603..a0f980180 100755
--- a/db.hs
+++ b/db.hs
@@ -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"
   ]