From 1345132fd141b8d9b12e858ccc0765272f703e49 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 26 Nov 2011 17:01:06 +0100 Subject: Allow doc comments to link to out-of-scope things (#78). (A bug that should have been fixed long ago.) --- src/Haddock/InterfaceFile.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Haddock/InterfaceFile.hs') diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs index c1b54b1b..1da46662 100644 --- a/src/Haddock/InterfaceFile.hs +++ b/src/Haddock/InterfaceFile.hs @@ -460,6 +460,9 @@ instance (Binary id) => Binary (Doc id) where put_ bh (DocExamples ao) = do putByte bh 15 put_ bh ao + put_ bh (DocIdentifierUnchecked x) = do + putByte bh 16 + put_ bh x get bh = do h <- getByte bh case h of @@ -511,6 +514,9 @@ instance (Binary id) => Binary (Doc id) where 15 -> do ao <- get bh return (DocExamples ao) + 16 -> do + x <- get bh + return (DocIdentifierUnchecked x) _ -> fail "invalid binary data found" -- cgit v1.2.3