diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-11-13 21:56:18 -0800 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-11-13 21:56:27 -0800 |
| commit | e763c004c8eb067ed0ef510fda9cb4ab102ea6ae (patch) | |
| tree | e3680199839b110261a025bb0ae977da4dc59a05 | |
| parent | 83a9e9d2c7f0debec9d56e8b3b7cc8a8eb73361e (diff) | |
Undo msHsFilePath change.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
| -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 5b9532e6..9b8bbe50 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 |