avoid namespace conflict

This commit is contained in:
Joey Hess 2011-08-16 20:47:48 -04:00
parent 354c5f349b
commit 5000aba76e
2 changed files with 1 additions and 3 deletions

View file

@ -178,8 +178,6 @@ withKeys :: CommandSeekKeys
withKeys a params = return $ map (a . parse) params
where
parse p = fromMaybe (error "bad key") $ readKey p
withTempFile :: CommandSeekStrings
withTempFile a params = return $ map a params
withNothing :: CommandSeekNothing
withNothing a [] = return [a]
withNothing _ _ = error "This command takes no parameters."