From 4a9586e05649ec18aa426b51db7098c402505472 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 11 Nov 2007 19:06:44 +0000
Subject: Don't require -B <ghc-libdir> when no argument files Change
 readInterfaceFile to take a Maybe Session, to avoid having to pass -B
 <ghc-libdir> to Haddock when there're no source files to process. This is
 nice when computing contents/index for external packages.

---
 src/Haddock/InterfaceFile.hs | 26 ++++++++++++++++++--------
 1 file changed, 18 insertions(+), 8 deletions(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index e822cdda..2fcb9351 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -97,8 +97,8 @@ writeInterfaceFile filename iface = do
   return ()
 
 
-readInterfaceFile :: Session -> FilePath -> IO (Either String InterfaceFile)
-readInterfaceFile session filename = do
+readInterfaceFile :: Maybe Session -> FilePath -> IO (Either String InterfaceFile)
+readInterfaceFile mbSession filename = do
   bh <- readBinMem filename
 
   magic   <- get bh
@@ -122,19 +122,29 @@ readInterfaceFile session filename = do
       ud <- newReadState dict
       bh <- return (setUserData bh ud)
 
-      -- get the name cache from the ghc session
-      ncRef <- withSession session (return . hsc_NC)
-      nc <- readIORef ncRef
+      -- get the name cache from ghc if we have a ghc session,
+      -- otherwise create a new one
+      (theNC, mbRef) <- case mbSession of
+        Just session -> do
+          ref <- withSession session (return . hsc_NC)
+          nc <- readIORef ref
+          return (nc, Just ref)
+        Nothing -> do
+          -- construct an empty name cache
+          u  <- mkSplitUniqSupply 'a' -- ??
+          return (initNameCache u [], Nothing)
 
       -- get the symbol table
       symtab_p <- get bh
       data_p   <- tellBin bh
       seekBin bh symtab_p
-      (nc', symtab) <- getSymbolTable bh nc
+      (nc', symtab) <- getSymbolTable bh theNC
       seekBin bh data_p
 
-      -- write back the new name cache
-      writeIORef ncRef nc'
+      -- write back the new name cache if we have a ghc session
+      case mbRef of
+        Just ref -> writeIORef ref nc'
+        Nothing  -> return ()
 
       -- set the symbol table
       let ud = getUserData bh
-- 
cgit v1.2.3