From 36c2624b87e9fd6fc77d0f9cbb02d453a1ad3590 Mon Sep 17 00:00:00 2001
From: David Waern <davve@dtek.chalmers.se>
Date: Sat, 5 Jan 2008 14:33:45 +0000
Subject: Add DrIFT commands

---
 src/Haddock/Types.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index f1e01459..0efffafb 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -14,7 +14,7 @@ import qualified Data.Map as Map
 import GHC hiding (NoLink)
 import Outputable
 
-
+{-! for DocOption derive: Binary !-}
 data DocOption
   = OptHide           -- ^ This module should not appear in the docs
   | OptPrune
@@ -80,6 +80,7 @@ type DocMap        = Map Name (HsDoc DocName)
 type LinkEnv       = Map Name Name
 
 
+{-! for DocName   derive: Binary !-}
 data DocName = Link Name | NoLink Name
 
 
-- 
cgit v1.2.3