Allow access to Action from HtmlT

Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>

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.