import Control.Monad.Except
import Data.Aeson (ToJSON)
import Data.Monoid
+import Data.Kind (Type)
import Prelude
import Servant.API
:<|> serveJobAPI t joberr
serveJobAPI
- :: forall (m :: * -> *) e t event output.
+ :: forall (m :: Type -> Type) e t event output.
(Ord t, MonadError e m, MonadJob m t (Dual [event]) output)
=> t
-> (JobError -> e)