orple
  :: (FromJSON a, ToJSON b, FromJSON s, ToJSON s, Eq s)
  => Options                       -- ^Options
  -> e                             -- ^The initial environment
  -> s                             -- ^The default session state
  -> (a -> Vorple e s Identity b)  -- ^The request handler
  -> W.Application                 -- ^The application
vorple = vorpleT $ return . runIdentity

vorple
  :: (FromJSON a, ToJSON b, FromJSON s, ToJSON s, Eq s)
  => Options                       -- ^Options
  -> e                             -- ^The initial environment
  -> s                             -- ^The default session state
  -> (a -> Vorple e s Identity b)  -- ^The request handler
  -> W.Application
vorple = vorpleT $ return . runIdentity
vorple = vorpleT $ return . runIdentity