File tree Expand file tree Collapse file tree 1 file changed +7
-7
lines changed
cabal-install/src/Distribution/Client Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -1705,16 +1705,16 @@ postProcessRepo lineno reponameStr repo0 = do
1705
1705
" file+noindex:" -> do
1706
1706
-- defer to file-uri package which is more accurate when parsing Windows
1707
1707
-- paths
1708
- let uri' = BS8. pack $ " file:" ++ uriToString id ((remoteRepoURI repo0){ uriScheme = " " }) []
1708
+ let uri' = BS8. pack $ " file:" ++ uriToString id ((remoteRepoURI repo0) { uriScheme = " " }) []
1709
1709
case parseFileURI (if buildOS == Windows then ExtendedWindows else ExtendedPosix ) uri' of
1710
1710
Left {} -> fail $ " Invalid path in URI: " <> show (remoteRepoURI repo0)
1711
1711
Right uri'' ->
1712
- return $
1713
- Left $
1714
- LocalRepo
1715
- reponame
1716
- (BS8. unpack $ filePath uri'')
1717
- (uriFragment (remoteRepoURI repo0) == " #shared-cache" )
1712
+ return
1713
+ $ Left
1714
+ $ LocalRepo
1715
+ reponame
1716
+ (BS8. unpack $ filePath uri'')
1717
+ (uriFragment (remoteRepoURI repo0) == " #shared-cache" )
1718
1718
_ -> do
1719
1719
let repo = repo0{remoteRepoName = reponame}
1720
1720
You can’t perform that action at this time.
0 commit comments