diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-05-05 05:16:19 +0200 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-05-05 09:19:49 +0200 |
| commit | 7ac2d0f2d31c2e1c7ede09828f3d5ba5626bd0d4 (patch) | |
| tree | 646d89bbeeb15e7e163788d335ccb74b5e3654a2 /src/Haddock/InterfaceFile.hs | |
| parent | dba02d6df32534aac5d257f2d28596238d248942 (diff) | |
Prepare modules for parser split.
We have to generalise the Doc (now DocH) slightly to remove the
dependency on GHC-supplied type.
Diffstat (limited to 'src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index 924829d7..7e4f6c10 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -456,7 +456,7 @@ instance Binary a => Binary (Header a) where return (Header l t) {-* Generated by DrIFT : Look, but Don't Touch. *-} -instance (Binary id) => Binary (Doc id) where +instance (Binary mod, Binary id) => Binary (DocH mod id) where put_ bh DocEmpty = do putByte bh 0 put_ bh (DocAppend aa ab) = do |