diff --git a/lib/Web/Hikaru/Action.hs b/lib/Web/Hikaru/Action.hs
index f99192ff158ed158f9ad0004c55b04e28843f768..2a2e2c9fe1d577f8cc11bb8af7e8bed4a2524525 100644
--- a/lib/Web/Hikaru/Action.hs
+++ b/lib/Web/Hikaru/Action.hs
@@ -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.