diff options
| author | Zubin Duggal <zubin@cmi.ac.in> | 2019-09-28 12:09:24 +0530 |
|---|---|---|
| committer | Alec Theriault <alec.theriault@gmail.com> | 2019-10-07 17:56:13 -0400 |
| commit | 63c7e87de4fa94cea9eb1b253054a316d3d75e1c (patch) | |
| tree | 57949028e18999e9eb0c2075ccedf224d0f4063a /haddock-api/src/Haddock.hs | |
| parent | 9bbcd3859c9ea08b75e6964490e75236f4a73454 (diff) | |
Fix crash when there are no srcspans in the file due to CPP
Diffstat (limited to 'haddock-api/src/Haddock.hs')
| -rw-r--r-- | haddock-api/src/Haddock.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs index 412d8391..1b49fba3 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -432,7 +432,7 @@ render dflags flags sinceQual qual ifaces installedIfaces extSrcMap = do when (Flag_HyperlinkedSource `elem` flags && not (null ifaces)) $ do withTiming (pure dflags') "ppHyperlinkedSource" (const ()) $ do _ <- {-# SCC ppHyperlinkedSource #-} - ppHyperlinkedSource odir libDir opt_source_css pretty srcMap ifaces + ppHyperlinkedSource (verbosity flags) odir libDir opt_source_css pretty srcMap ifaces return () |