aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-08-12 10:56:32 +0200
committerSylvain Henry <sylvain@haskus.fr>2020-08-17 14:13:29 +0200
commit54468d1e60cb10093120137766cfc9dd91671c98 (patch)
treee79b847f77107f2ee67933ee4d98080f8a4bd232 /haddock-api/src/Haddock/Backends
parent323aa89cbb4a3e8c8f32295e42a42635f05c849d (diff)
Remove Ord FastString instance
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
-rw-r--r--haddock-api/src/Haddock/Backends/Hyperlinker.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker.hs b/haddock-api/src/Haddock/Backends/Hyperlinker.hs
index d315ced0..2ae4dcdb 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker.hs
@@ -18,7 +18,7 @@ import Data.Maybe
import System.Directory
import System.FilePath
-import GHC.Iface.Ext.Types ( HieFile(..), HieASTs(..) )
+import GHC.Iface.Ext.Types
import GHC.Iface.Ext.Binary ( readHieFile, hie_file_result, NameCacheUpdater(..))
import Data.Map as M
import GHC.Data.FastString ( mkFastString )
@@ -67,7 +67,7 @@ ppHyperlinkedModuleSource srcdir pretty srcs iface = case ifaceHieFile iface of
-- Get the AST and tokens corresponding to the source file we want
let mast | M.size asts == 1 = snd <$> M.lookupMin asts
- | otherwise = M.lookup (mkFastString file) asts
+ | otherwise = M.lookup (HiePath (mkFastString file)) asts
tokens = parse df file rawSrc
-- Produce and write out the hyperlinked sources