version 0.1.1.7: polymorphic throwJson (#10)

CHANGELOG.md

@@ -6,6 +6,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+## [0.1.1.7] - 2019-09-18
+### Changed
+- `throwJson` type is more polymorphic to match `throwIO` and similar.
+
 ## [0.1.1.6] - 2019-09-13
 ### Added
 - `MonadWebError` type class with `throwJson` function.

src/Web/Template/Except.hs

@@ -66,11 +66,11 @@ class MonadWebError m where
  -- | Throw any 'ToJSON'able value with custom HTTP code. The value will be sent
  -- directly as response without any additional formatting.
  --
- throwJson :: (Show a, ToJSON a) => Status -> a -> m ()
+ throwJson :: (Show e, ToJSON e) => Status -> e -> m a
 
  -- | Specialized version of 'throwJson' that uses @500 Internal Server Error@ code.
  {-# INLINE throwJson500 #-}
- throwJson500 :: (Show a, ToJSON a) => a -> m ()
+ throwJson500 :: (Show e, ToJSON e) => e -> m a
  throwJson500 = throwJson status500
 
 instance Monad m => MonadWebError (ActionT Except m) where

web-template.cabal

@@ -1,5 +1,5 @@
 name: web-template
-version: 0.1.1.6
+version: 0.1.1.7
 synopsis: Web template
 description:
  Web template includes: