web-routes-transformers-0.18: Web/Routes/Transformers.hs

{-# LANGUAGE GeneralizedNewtypeDeriving, FlexibleInstances, TypeFamilies, PackageImports #-}
module Web.Routes.Transformers where

import "transformers" Control.Monad.Trans (MonadTrans(lift), MonadIO(liftIO))
import Web.Routes.RouteT(RouteT, liftRouteT)

instance MonadTrans (RouteT url) where
  lift = liftRouteT
  
instance (MonadIO m) => MonadIO (RouteT url m) where  
  liftIO = lift . liftIO