Skip to content
Snippets Groups Projects
Verified Commit b36e33cc authored by jan.hamal.dvorak's avatar jan.hamal.dvorak
Browse files

Allow access to Action from HtmlT

parent 942825b6
Branches
No related tags found
No related merge requests found
......@@ -81,6 +81,7 @@ where
import qualified Data.ByteString.Lazy as LBS
import qualified Data.Text.Lazy as LT
import Control.Monad.Trans (lift)
import Control.Monad.Trans.Resource
import Data.Aeson (Value, ToJSON, encode, eitherDecode')
import Data.Binary.Builder
......@@ -115,6 +116,12 @@ where
--
getActionEnv :: m ActionEnv
-- |
-- Allow access to action when building HTML responses.
--
instance (MonadAction m) => MonadAction (HtmlT m) where
getActionEnv = lift getActionEnv
-- |
-- Obtain only the specific 'ActionEnv' field value.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment