From ff4fb00f7661be1a15ef373fcb1bfefc3cb66de5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=B6nke=20Hahn?= <soenkehahn@gmail.com>
Date: Tue, 3 May 2016 18:05:39 +0800
Subject: [PATCH] fix haddocks for Servant.API.Header (fixes #491)

---
 servant/src/Servant/API/Header.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/servant/src/Servant/API/Header.hs b/servant/src/Servant/API/Header.hs
index ac7471c1..2f46f160 100644
--- a/servant/src/Servant/API/Header.hs
+++ b/servant/src/Servant/API/Header.hs
@@ -3,7 +3,9 @@
 {-# LANGUAGE DeriveFunctor      #-}
 {-# LANGUAGE PolyKinds          #-}
 {-# OPTIONS_HADDOCK not-home    #-}
-module Servant.API.Header where
+module Servant.API.Header (
+  Header(..),
+) where
 
 import           Data.ByteString (ByteString)
 import           Data.Typeable   (Typeable)
@@ -25,5 +27,3 @@ data Header (sym :: Symbol) a = Header a
 -- >>> import Servant.API
 -- >>> import Data.Aeson
 -- >>> import Data.Text
--- >>> data Book
--- >>> instance ToJSON Book where { toJSON = undefined }