From b36e33ccd3f004f78afb9839599b673ffb43adb7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Hamal=20Dvo=C5=99=C3=A1k?= <mordae@anilinux.org>
Date: Thu, 2 May 2019 00:30:16 +0200
Subject: [PATCH] Allow access to Action from HtmlT
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>
---
lib/Web/Hikaru/Action.hs | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lib/Web/Hikaru/Action.hs b/lib/Web/Hikaru/Action.hs
index f99192f..2a2e2c9 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.
--
GitLab