--branch, stage 2
Show branch:file that is being operated on. I had to make ActionItem a type and not a type class because withKeyOptions' passed two different types of values when using the type class, and I could not get the type checker to accept that.
This commit is contained in:
parent
847944e6b1
commit
d13194b230
15 changed files with 145 additions and 102 deletions
|
@ -47,14 +47,13 @@ seek o = do
|
|||
(whereisFiles o)
|
||||
|
||||
start :: M.Map UUID Remote -> FilePath -> Key -> CommandStart
|
||||
start remotemap file key = start' remotemap key (Just file)
|
||||
start remotemap file key = startKeys remotemap key (mkActionItem afile)
|
||||
where
|
||||
afile = Just file
|
||||
|
||||
startKeys :: M.Map UUID Remote -> Key -> CommandStart
|
||||
startKeys remotemap key = start' remotemap key Nothing
|
||||
|
||||
start' :: M.Map UUID Remote -> Key -> AssociatedFile -> CommandStart
|
||||
start' remotemap key afile = do
|
||||
showStart' "whereis" key afile
|
||||
startKeys :: M.Map UUID Remote -> Key -> ActionItem -> CommandStart
|
||||
startKeys remotemap key ai = do
|
||||
showStart' "whereis" key ai
|
||||
next $ perform remotemap key
|
||||
|
||||
perform :: M.Map UUID Remote -> Key -> CommandPerform
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue