aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorEdward Z. Yang <ezyang@cs.stanford.edu>2015-11-13 21:56:18 -0800
committerEdward Z. Yang <ezyang@cs.stanford.edu>2015-11-13 21:56:27 -0800
commite763c004c8eb067ed0ef510fda9cb4ab102ea6ae (patch)
treee3680199839b110261a025bb0ae977da4dc59a05 /haddock-api/src/Haddock/Interface/Create.hs
parent83a9e9d2c7f0debec9d56e8b3b7cc8a8eb73361e (diff)
Undo msHsFilePath change.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
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 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