File tree Expand file tree Collapse file tree 4 files changed +6
-3
lines changed Expand file tree Collapse file tree 4 files changed +6
-3
lines changed Original file line number Diff line number Diff line change @@ -83,7 +83,7 @@ library cabal-haddock-server-internal
8383 , lucid ^>= 2.11.1
8484 , optparse-applicative ^>= 0.18.0.0
8585 , tar ^>= 0.6.2.0
86- , time-manager ^>= 0.0 .0
86+ , time-manager ^>= 0.1 .0
8787 , wai ^>= 3.2.3
8888 , warp ^>= 3.4.0
8989 , zlib ^>= 0.7.0.0
Original file line number Diff line number Diff line change @@ -81,7 +81,6 @@ library
8181 , aeson ^>= 2.2.1.0
8282 , ansi-terminal ^>= 1.1
8383 , async ^>= 2.2.2
84- , base-compat ^>= 0.13.0
8584 , cabal-install-parsers ^>= 0.6
8685 , cabal-plan ^>= 0.7.2.0
8786 , clock ^>= 0.8
Original file line number Diff line number Diff line change @@ -90,6 +90,10 @@ getGhcInfo tracer ghc = do
9090 let pui :: String
9191 pui = fromMaybe " " $ lookup " Project Unit Id" info
9292
93+ let prefix = " ghc-" ++ prettyShow ver ++ " -"
94+ unless (L. isPrefixOf prefix pui) $
95+ die tracer $ prefix ++ " is not prefix of Project Unit Id: " ++ pui
96+
9397 return GhcInfo
9498 { ghcPath = ghc
9599 , ghcPlatform = x ++ " -" ++ y
@@ -110,7 +114,7 @@ ghcStoreDir :: Maybe Version -> GhcInfo -> Path Absolute -> Path Absolute
110114ghcStoreDir (Just cabalVer) info storeDir
111115 -- https://github.com/haskell/cabal/blob/6eaba73ac95c62f8dc576e227b5f9c346910303c/Cabal/src/Distribution/Simple/GHC.hs#L245
112116 | cabalVer >= mkVersion [3 ,12 ]
113- , L. isPrefixOf (prettyShow (ghcVersion info) ++ " -" ) pui
117+ , L. isPrefixOf (" ghc- " ++ prettyShow (ghcVersion info) ++ " -" ) pui
114118 = storeDir </> fromUnrootedFilePath pui
115119 where
116120 pui = ghcProjectUnitId info
You can’t perform that action at this time.
0 commit comments