use a state monad

enormous reworking

1 files changed, 11 insertions, 10 deletions

diff --git a/CmdLine.hs b/CmdLine.hs
index 9da2b6493..d23508aa2 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -6,7 +6,8 @@
 
 module CmdLine (
 	argvToMode,
-	dispatch
+	dispatch,
+	Mode
 ) where
 
 import System.Console.GetOpt
@@ -39,13 +40,13 @@ argvToMode argv = do
 		(_,files,errs) -> ioError (userError (concat errs ++ usageInfo header options))
 	where header = "Usage: git-annex [mode] file"
 
-dispatch :: State -> Mode -> FilePath -> IO ()
-dispatch state mode item = do
+dispatch :: Mode -> FilePath -> Annex ()
+dispatch mode item = do
 	case (mode) of
-		Add     -> annexFile state item
-		Push    -> annexPushRepo state item
-		Pull    -> annexPullRepo state item
-		Want    -> annexWantFile state item
-		Get     -> annexGetFile state item
-		Drop    -> annexDropFile state item
-		Unannex -> unannexFile state item
+		Add     -> annexFile item
+		Push    -> annexPushRepo item
+		Pull    -> annexPullRepo item
+		Want    -> annexWantFile item
+		Get     -> annexGetFile item
+		Drop    -> annexDropFile item
+		Unannex -> unannexFile item