Merge pull request #157 from phadej/pui-bug

Fix Project Unit Id bug for GHC-9.6 and older

Author: phadej

cabal-docspec/Changelog.md

@@ -1,3 +1,7 @@
+# 0.0.0.20240703
+
+- Fix "Project Unit Id" bug
+
 # 0.0.0.20240702
 
 - Support `cabal-install-3.12` changed store directory logic

cabal-docspec/cabal-docspec.cabal

@@ -1,6 +1,6 @@
 cabal-version:      2.2
 name:               cabal-docspec
-version:            0.0.0.20240702
+version:            0.0.0.20240703
 synopsis:           Run examples in your docs
 category:           Development
 description:

peura/src/Peura/GHC.hs

@@ -87,12 +87,14 @@ getGhcInfo tracer ghc = do
                 lookup "LibDir" info
             libDir <- makeAbsoluteFilePath libDirStr
 
-            let pui :: String
-                pui = fromMaybe "" $ lookup "Project Unit Id" info
-
-            let prefix = "ghc-" ++ prettyShow ver ++ "-"
-            unless (L.isPrefixOf prefix pui) $
-                die tracer $ prefix ++ " is not prefix of Project Unit Id: " ++ pui
+            pui <- case lookup "Project Unit Id" info of
+                Nothing -> return ""
+                Just pui -> do
+                    let prefix = "ghc-" ++ prettyShow ver ++ "-"
+                    unless (L.isPrefixOf prefix pui) $
+                        die tracer $ prefix ++ " is not prefix of Project Unit Id: " ++ pui
+
+                    return pui
 
             return GhcInfo
                 { ghcPath     = ghc