27 lines
882 B
Haskell
27 lines
882 B
Haskell
{-# LANGUAGE CPP #-}
|
|
-- | This is designed to be used as
|
|
--
|
|
-- > qualified import Yesod.Core.Unsafe as Unsafe
|
|
--
|
|
-- This serves as a reminder that the functions are unsafe to use in many situations.
|
|
module Yesod.Core.Unsafe (runFakeHandler, fakeHandlerGetLogger) where
|
|
|
|
import Yesod.Core.Internal.Run (runFakeHandler)
|
|
|
|
import Yesod.Core.Types
|
|
import Yesod.Core.Class.Yesod
|
|
#if __GLASGOW_HASKELL__ < 710
|
|
import Data.Monoid (mempty, mappend)
|
|
#endif
|
|
import Control.Monad.IO.Class (MonadIO)
|
|
|
|
-- | designed to be used as
|
|
--
|
|
-- > unsafeHandler = Unsafe.fakeHandlerGetLogger appLogger
|
|
fakeHandlerGetLogger :: (Yesod site, MonadIO m)
|
|
=> (site -> Logger) -> site -> HandlerT site IO a -> m a
|
|
fakeHandlerGetLogger getLogger app f =
|
|
runFakeHandler mempty getLogger app f
|
|
>>= either (error . ("runFakeHandler issue: " `mappend`) . show)
|
|
return
|