From 3aae7d1e42edcced9b5178d8ee2152fd4e4f7a22 Mon Sep 17 00:00:00 2001 From: Amitai Burstein Date: Thu, 11 Jan 2024 16:02:40 +0200 Subject: [PATCH] Redirect example --- Web/Controller/LandingPages.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Web/Controller/LandingPages.hs b/Web/Controller/LandingPages.hs index e912a5c..d274af7 100644 --- a/Web/Controller/LandingPages.hs +++ b/Web/Controller/LandingPages.hs @@ -9,7 +9,8 @@ import Web.View.LandingPages.Show instance Controller LandingPagesController where action LandingPagesAction = do landingPages <- query @LandingPage |> fetch - render IndexView { .. } + redirectToUrl "https://github.com/digitallyinduced/ihp?query=1#hash=2" + -- render IndexView { .. } action NewLandingPageAction = do let landingPage = newRecord