diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-07-25 17:44:41 -0700 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-12-14 15:17:02 +0000 |
| commit | 7a569775a5b10abed758b207e86c404034d543f4 (patch) | |
| tree | c99c42a37216f3b97c67893318ced38dc9fc8c17 | |
| parent | 5aac8c97051760f4a13566c636a739f109acc4e1 (diff) | |
Track 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, 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 |