From bbc872e1547f99c19cb2d15300769d9a9aea06ed Mon Sep 17 00:00:00 2001
From: Simon Hafner <hafnersimon@gmail.com>
Date: Sun, 14 May 2017 16:26:25 +0200
Subject: [PATCH] Fixed unticked-promoted-constructors

---
 servant/src/Servant/API/ContentTypes.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/servant/src/Servant/API/ContentTypes.hs b/servant/src/Servant/API/ContentTypes.hs
index 4bb048d9..28fdbb00 100644
--- a/servant/src/Servant/API/ContentTypes.hs
+++ b/servant/src/Servant/API/ContentTypes.hs
@@ -185,7 +185,7 @@ instance OVERLAPPABLE_
             lkup = fmap (\(a,b) -> (a, (fromStrict $ M.renderHeader a, b))) amrs
 
 #if MIN_VERSION_base(4,9,0)
-instance TL.TypeError (TL.Text "No instance for (), use NoContent instead.")
+instance TL.TypeError ('TL.Text "No instance for (), use NoContent instead.")
   => AllCTRender '[] () where
   handleAcceptH _ _ _ = error "unreachable"
 #endif