Merge pull request #116 from mithrandi/identity-instances

Add Identity instances
GetShopTV · Sep 10, 2017 · 9f92754 · 9f92754
2 parents 7e55105 + 2e25e83
commit 9f92754
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/src/Data/Swagger/Internal/ParamSchema.hs b/src/Data/Swagger/Internal/ParamSchema.hs
@@ -225,6 +225,8 @@ instance ToParamSchema a => ToParamSchema (First a)   where toParamSchema _ = to
 instance ToParamSchema a => ToParamSchema (Last a)    where toParamSchema _ = toParamSchema (Proxy :: Proxy a)
 instance ToParamSchema a => ToParamSchema (Dual a)    where toParamSchema _ = toParamSchema (Proxy :: Proxy a)
 
+instance ToParamSchema a => ToParamSchema (Identity a) where toParamSchema _ = toParamSchema (Proxy :: Proxy a)
+
 instance ToParamSchema a => ToParamSchema [a] where
   toParamSchema _ = mempty
     & type_ .~ SwaggerArray

diff --git a/src/Data/Swagger/Internal/Schema.hs b/src/Data/Swagger/Internal/Schema.hs
@@ -565,6 +565,8 @@ instance ToSchema a => ToSchema (First a)   where declareNamedSchema _ = unname
 instance ToSchema a => ToSchema (Last a)    where declareNamedSchema _ = unname <$> declareNamedSchema (Proxy :: Proxy a)
 instance ToSchema a => ToSchema (Dual a)    where declareNamedSchema _ = unname <$> declareNamedSchema (Proxy :: Proxy a)
 
+instance ToSchema a => ToSchema (Identity a) where declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy a)
+
 -- | Default schema for @'Bounded'@, @'Integral'@ types.
 --
 -- >>> encode $ toSchemaBoundedIntegral (Proxy :: Proxy Int16)

diff --git a/stack.yaml b/stack.yaml
@@ -1,3 +1,3 @@
-resolver: lts-8.0
+resolver: lts-9.3
 packages:
 - '.'