aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorEdward Z. Yang <ezyang@cs.stanford.edu>2015-07-25 17:44:41 -0700
committerMatthew Pickering <matthewtpickering@gmail.com>2015-12-14 15:17:02 +0000
commit7a569775a5b10abed758b207e86c404034d543f4 (patch)
treec99c42a37216f3b97c67893318ced38dc9fc8c17 /haddock-api/src/Haddock/Interface/Create.hs
parent5aac8c97051760f4a13566c636a739f109acc4e1 (diff)
Track 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, 3 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index d8f49edc..169dad7a 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -130,7 +130,9 @@ createInterface tm flags modMap instIfaceMap = do
return $! Interface {
ifaceMod = mdl
- , ifaceOrigFilename = msHsFilePath ms
+ , ifaceOrigFilename = case msHsFilePath ms of
+ Just path -> path
+ Nothing -> "(none)"
, ifaceInfo = info
, ifaceDoc = Documentation mbDoc modWarn
, ifaceRnDoc = Documentation Nothing Nothing