diff options
Diffstat (limited to 'Command/InAnnex.hs')
| -rw-r--r-- | Command/InAnnex.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/Command/InAnnex.hs b/Command/InAnnex.hs index 68ac9a2c6..fa81fc9a4 100644 --- a/Command/InAnnex.hs +++ b/Command/InAnnex.hs @@ -11,9 +11,7 @@ import Control.Monad.State (liftIO) import System.Exit import Command -import Types import Content -import qualified Backend command :: [Command] command = [Command "inannex" (paramRepeating paramKey) seek @@ -22,10 +20,8 @@ command = [Command "inannex" (paramRepeating paramKey) seek seek :: [CommandSeek] seek = [withKeys start] -start :: CommandStartString -start keyname = do - backends <- Backend.list - let key = genKey (head backends) keyname +start :: CommandStartKey +start key = do present <- inAnnex key if present then return Nothing |