diff options
author | Zubin Duggal <zubin@cmi.ac.in> | 2020-06-26 15:29:18 +0530 |
---|---|---|
committer | Zubin Duggal <zubin@cmi.ac.in> | 2020-07-23 18:46:40 +0530 |
commit | 7e6628febc482b4ad451f49ad416722375d1b170 (patch) | |
tree | 26321ac202d0f9600ba1bab45f41499ee9eef418 /haddock-api/src/Haddock/Types.hs | |
parent | 7e1ae9b519e16bd93fafcc653e38524fa17b38b9 (diff) |
Update for modular ping pong
Diffstat (limited to 'haddock-api/src/Haddock/Types.hs')
-rw-r--r-- | haddock-api/src/Haddock/Types.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs index 21c7d19b..89fd6658 100644 --- a/haddock-api/src/Haddock/Types.hs +++ b/haddock-api/src/Haddock/Types.hs @@ -669,7 +669,13 @@ instance MonadIO ErrMsgGhc where -- * Pass sensitive types ----------------------------------------------------------------------------- -type instance XRec DocNameI f = Located (f DocNameI) +type instance XRec DocNameI a = Located a +instance UnXRec DocNameI where + unXRec = unLoc +instance MapXRec DocNameI where + mapXRec = fmap +instance WrapXRec DocNameI where + wrapXRec = noLoc type instance XForAllTy DocNameI = NoExtField type instance XQualTy DocNameI = NoExtField |