aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2015-11-20 23:12:49 +0000
committerSimon Peyton Jones <simonpj@microsoft.com>2015-11-20 23:12:49 +0000
commitc091ca829c253dc7f12f3a816a083c39979130f1 (patch)
treee2562f8ed8afc9eb000ffa401847eb4adcc4ded6 /haddock-api/src/Haddock/Interface/Create.hs
parentc122a762c7839704644221a251cbe5ad3254f836 (diff)
parente763c004c8eb067ed0ef510fda9cb4ab102ea6ae (diff)
Merge remote-tracking branch 'origin/ghc-head' into wip/spj-wildcard-refactor
Diffstat (limited to 'haddock-api/src/Haddock/Interface/Create.hs')
-rw-r--r--haddock-api/src/Haddock/Interface/Create.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index f7eb5a82..4d45ff9b 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -125,9 +125,7 @@ createInterface tm flags modMap instIfaceMap = do
return $! Interface {
ifaceMod = mdl
- , ifaceOrigFilename = case msHsFilePath ms of
- Just path -> path
- Nothing -> "(none)"
+ , ifaceOrigFilename = msHsFilePath ms
, ifaceInfo = info
, ifaceDoc = Documentation mbDoc modWarn
, ifaceRnDoc = Documentation Nothing Nothing