diff options
Diffstat (limited to 'Command/InitRemote.hs')
| -rw-r--r-- | Command/InitRemote.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Command/InitRemote.hs b/Command/InitRemote.hs index 78a1738d5..d82dc366c 100644 --- a/Command/InitRemote.hs +++ b/Command/InitRemote.hs @@ -15,6 +15,7 @@ import qualified Remote import qualified Logs.Remote import qualified Types.Remote as R import Logs.UUID +import Types.GitConfig cmd :: Command cmd = command "initremote" SectionSetup @@ -46,7 +47,8 @@ start (name:ws) = ifM (isJust <$> findExisting name) perform :: RemoteType -> String -> R.RemoteConfig -> CommandPerform perform t name c = do - (c', u) <- R.setup t R.Init cu Nothing c def + dummycfg <- liftIO dummyRemoteGitConfig + (c', u) <- R.setup t R.Init cu Nothing c dummycfg next $ cleanup u name c' where cu = case M.lookup "uuid" c of |