diff options
author | 2010-10-10 18:25:31 -0400 | |
---|---|---|
committer | 2010-10-10 18:25:31 -0400 | |
commit | 026adce5a01381e9a802747f2ddf4ca5635468c9 (patch) | |
tree | 9ba02888b88a70dcc98dbad2138426c38a48b19d /CmdLine.hs | |
parent | e5514e0cb0809848645814e8c1f67cd89cb16c4f (diff) |
update
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index 79bd55cd9..d848ee8f9 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -34,8 +34,8 @@ argvToFlags argv = do (_,n,errs) -> ioError (userError (concat errs ++ usageInfo header options)) where header = "Usage: git-annex [option] file" -dispatch :: Flag -> [Backend] -> GitRepo -> IO () -dispatch flag backends repo = do +dispatch :: Flag -> State -> IO () +dispatch flag state = do case (flag) of - Add f -> annexFile backends repo f + Add f -> annexFile state f _ -> error "not implemented" |