From 966f1e9c7eabe78b9e8f8e87977caf6bd0c07f47 Mon Sep 17 00:00:00 2001
From: Matthias Fischmann <mf@zerobuzz.net>
Date: Sat, 1 Aug 2020 23:04:29 +0200
Subject: [PATCH] ...

---
 src/Servant/Swagger/Internal.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Servant/Swagger/Internal.hs b/src/Servant/Swagger/Internal.hs
index 1efdc6df6..e72cc0ae0 100644
--- a/src/Servant/Swagger/Internal.hs
+++ b/src/Servant/Swagger/Internal.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE CPP                  #-}
 {-# LANGUAGE ConstraintKinds      #-}
 {-# LANGUAGE DataKinds            #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}  -- TODO: can we get rid of this?
 {-# LANGUAGE FlexibleContexts     #-}
 {-# LANGUAGE FlexibleInstances    #-}
 {-# LANGUAGE OverloadedStrings    #-}
@@ -14,6 +15,8 @@
 #endif
 module Servant.Swagger.Internal where
 
+-- TODO: write tests!
+
 -- TODO: shuffle this into the other imports.
 #if MIN_VERSION_servant(0,18,0)
 import Control.Applicative ((<|>))