module Haste.Monad
  ( runHaste
  , liftIO
  , ask, asks
  , module Haste.Types
  ) where

import Haste.Types

import Control.Monad.Trans (liftIO)
import Control.Monad.Reader (ask, asks, runReaderT)

runHaste :: HasteEnvironment -> HM a -> IO a
runHaste env hm = runReaderT hm env