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
No related branches found
No related tags found
No related merge requests found
...@@ -81,6 +81,7 @@ where ...@@ -81,6 +81,7 @@ where
import qualified Data.ByteString.Lazy as LBS import qualified Data.ByteString.Lazy as LBS
import qualified Data.Text.Lazy as LT import qualified Data.Text.Lazy as LT
import Control.Monad.Trans (lift)
import Control.Monad.Trans.Resource import Control.Monad.Trans.Resource
import Data.Aeson (Value, ToJSON, encode, eitherDecode') import Data.Aeson (Value, ToJSON, encode, eitherDecode')
import Data.Binary.Builder import Data.Binary.Builder
...@@ -115,6 +116,12 @@ where ...@@ -115,6 +116,12 @@ where
-- --
getActionEnv :: m ActionEnv 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. -- 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