@@ -645,16 +645,8 @@ setThunk branch thunkDir = checkThunkDirectory thunkDir >> readThunk thunkDir >>
645645 sha256 <- nixPrefetchGit uri rev False
646646 let newThunkPtr = ThunkPtr
647647 { _thunkPtr_source = case _thunkPtr_source thunkptr of
648− ThunkSource_Git gitSource -> ThunkSource_Git GitSource
649− { _gitSource_url = _gitSource_url gitSource
650− , _gitSource_branch = Just $ N $ T.pack branch
651− , _gitSource_fetchSubmodules = _gitSource_fetchSubmodules gitSource
652− }
653− ThunkSource_GitHub gitHubSource -> ThunkSource_GitHub GitHubSource
654− { _gitHubSource_owner = _gitHubSource_owner gitHubSource
655− , _gitHubSource_repo = _gitHubSource_repo gitHubSource
656− , _gitHubSource_branch = Just $ N $ T.pack branch
657− }
648+ ThunkSource_Git gitSource -> ThunkSource_Git $ gitSource { _gitSource_branch = Just $ N $ T.pack branch }
649+ ThunkSource_GitHub gitHubSource -> ThunkSource_GitHub $ gitHubSource { _gitHubSource_branch = Just $ N $ T.pack branch }
658650 , _thunkPtr_rev = ThunkRev
659651 { _thunkRev_commit = Ref.hash $ encodeUtf8 rev
660652 , _thunkRev_nixSha256 = sha256