diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-11-20 23:12:49 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-11-20 23:12:49 +0000 |
| commit | c091ca829c253dc7f12f3a816a083c39979130f1 (patch) | |
| tree | e2562f8ed8afc9eb000ffa401847eb4adcc4ded6 /haddock-api/src/Haddock/Interface/Create.hs | |
| parent | c122a762c7839704644221a251cbe5ad3254f836 (diff) | |
| parent | e763c004c8eb067ed0ef510fda9cb4ab102ea6ae (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.hs | 4 |
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 |