orpleIO
  :: (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 IO b)   -- ^The request handler
  -> W.Application            -- ^The application
vorpleIO = vorpleT id

vorpleIO
  :: (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 IO b)   -- ^The request handler
  -> W.Application
vorpleIO = vorpleT id
vorpleIO = vorpleT id