@@ -633,12 +633,8 @@ setThunk' noTrail branch thunkDir = checkThunkDirectory thunkDir >> readThunk th
633633 Right (ThunkData_Packed thunkptr) -> do
634634 let thunkSrc = _thunkPtr_source thunkptr
635635 repository = case thunkSrc of
636− ThunkSource_Git gitSource -> (T.unpack $ render $ _gitSource_url gitSource)
637− ThunkSource_GitHub gitHubSource -> T.unpack $ "git@github.com:"
638− <> (untagName $ _gitHubSource_owner gitHubSource)
639− <> "/"
640− <> (untagName $ _gitHubSource_repo gitHubSource)
641− <> ".git"
636+ ThunkSource_Git gitSource -> T.unpack $ render $ _gitSource_url gitSource
637+ ThunkSource_GitHub gitHubSource -> T.unpack $ render $ _gitSource_url $ forgetGithub True gitHubSource
642638 -- check to see if branch exists before modifying directory
643639 (exitCode, _) <- gitLsRemoteExitCode repository branch
644640 case exitCode of