diff options
| author | David Terei <davidterei@gmail.com> | 2011-08-18 14:27:53 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-10-12 14:02:55 -0700 |
| commit | 45bcf701d8e99e86f28a966b31654c16a5ae6b42 (patch) | |
| tree | 0a87147ec4e11353f8d0850a39d5d09aa4a457e5 /src/Haddock/InterfaceFile.hs | |
| parent | 8b2ee333020aeb9e639cd1772e1dca3b4b4ef3d2 (diff) | |
Add safe haskell indication to haddock output
Diffstat (limited to 'src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index 57374b1d..8ff91e34 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -526,13 +526,15 @@ instance Binary name => Binary (HaddockModInfo name) where put_ bh (hmi_portability hmi) put_ bh (hmi_stability hmi) put_ bh (hmi_maintainer hmi) + put_ bh (hmi_safety hmi) get bh = do descr <- get bh porta <- get bh stabi <- get bh maint <- get bh - return (HaddockModInfo descr porta stabi maint) + safet <- get bh + return (HaddockModInfo descr porta stabi maint safet) instance Binary DocName where |