diff options
Diffstat (limited to 'Config.hs')
-rw-r--r-- | Config.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -18,6 +18,7 @@ import Config.Cost import Config.DynamicConfig import Types.Availability import Git.Types +import qualified Types.Remote as Remote type UnqualifiedConfigKey = String data ConfigKey = ConfigKey String @@ -55,6 +56,9 @@ instance RemoteNameable Git.Repo where instance RemoteNameable RemoteName where getRemoteName = id +instance RemoteNameable Remote where + getRemoteName = Remote.name + {- A per-remote config setting in git config. -} remoteConfig :: RemoteNameable r => r -> UnqualifiedConfigKey -> ConfigKey remoteConfig r key = ConfigKey $ |