init: When run in an already initalized repository, and without a description specified, don't delete the old description.

2011-11-12 15:42:52 -04:00 · 2011-11-12 15:42:52 -04:00 · cea65b9e5b
commit cea65b9e5b
parent e9bfa8eaed
2 changed files with 3 additions and 1 deletions
--- a/Command/Init.hs
+++ b/Command/Init.hs
@ -27,5 +27,5 @@ start ws = do

 perform :: String -> CommandPerform
 perform description = do
-	initialize (Just description)
+	initialize $ if null description then Nothing else Just description
 	next $ return True