Add markup support for interactive examples

1 files changed, 16 insertions, 0 deletions

diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index eed44714..6a3e777c 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -371,6 +371,16 @@ instance Binary DocOption where
               _ -> fail "invalid binary data found"
 
 
+instance Binary Example where
+    put_ bh (Example expression result) = do
+        put_ bh expression
+        put_ bh result
+    get bh = do
+        expression <- get bh
+        result <- get bh
+        return (Example expression result)
+
+
 {-* Generated by DrIFT : Look, but Don't Touch. *-}
 instance (Binary id) => Binary (Doc id) where
     put_ bh DocEmpty = do
@@ -418,6 +428,9 @@ instance (Binary id) => Binary (Doc id) where
     put_ bh (DocAName an) = do
             putByte bh 14
             put_ bh an
+    put_ bh (DocExamples ao) = do
+            putByte bh 15
+            put_ bh ao
     get bh = do
             h <- getByte bh
             case h of
@@ -466,6 +479,9 @@ instance (Binary id) => Binary (Doc id) where
               14 -> do
                     an <- get bh
                     return (DocAName an)
+              15 -> do
+                    ao <- get bh
+                    return (DocExamples ao)
               _ -> fail "invalid binary data found"