new fromkey subcommand, for registering urls, etc0.01

had to redo Annex monad's flag storage

1 files changed, 2 insertions, 3 deletions

diff --git a/Core.hs b/Core.hs
index 8dc4bff6f..4941dc26b 100644
--- a/Core.hs
+++ b/Core.hs
@@ -18,9 +18,8 @@ import qualified Annex
 import Utility
 			
 {- Sets up a git repo for git-annex. -}
-startup :: [Flag] -> Annex ()
-startup flags = do
-	mapM (\f -> Annex.flagChange f True) flags
+startup :: Annex ()
+startup = do
 	g <- Annex.gitRepo
 	liftIO $ gitAttributes g
 	prepUUID