@@ -3,7 +3,6 @@
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4{-# LANGUAGE FlexibleContexts #-}
4{-# LANGUAGE FlexibleContexts #-}
5{-# LANGUAGE FlexibleInstances #-}
5{-# LANGUAGE FlexibleInstances #-}
6−{-# LANGUAGE FlexibleInstances #-}
7{-# LANGUAGE OverloadedStrings #-}
6{-# LANGUAGE OverloadedStrings #-}
8{-# LANGUAGE PolyKinds #-}
7{-# LANGUAGE PolyKinds #-}
9{-# LANGUAGE ScopedTypeVariables #-}
8{-# LANGUAGE ScopedTypeVariables #-}
@@ -33,11 +32,7 @@ import Network.HTTP.Types (Status (..), hAccept, hContentType,
33 methodDelete, methodGet,
32 methodDelete, methodGet,
34 methodHead, methodPatch,
33 methodHead, methodPatch,
35 methodPost, methodPut, ok200,
34 methodPost, methodPut, ok200,
36−#if MIN_VERSION_http_types(0,10,0)
37 imATeapot418,
35 imATeapot418,
41 parseQuery)
36 parseQuery)
42import Network.Wai (Application, Request, requestHeaders, pathInfo,
37import Network.Wai (Application, Request, requestHeaders, pathInfo,
43 queryString, rawQueryString,
38 queryString, rawQueryString,
@@ -74,11 +69,6 @@ import Servant.Server.Experimental.Auth
74import Servant.Server.Internal.Context
69import Servant.Server.Internal.Context
75 (NamedContext(..))
70 (NamedContext(..))
77−#if !MIN_VERSION_http_types(0,10,0)
78−imATeapot418 :: Status
79−imATeapot418 = imATeaPot418
82-- * comprehensive api test
72-- * comprehensive api test
84-- This declaration simply checks that all instances are in place.
74-- This declaration simply checks that all instances are in place.