From 1f2e453d0c9f8412b9032cb4e655713ecdcf1fa3 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 26 May 2025 04:43:38 -0400 Subject: web: Refactor major style --- fig-web/src/Fig/Web/Module/Shader.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 fig-web/src/Fig/Web/Module/Shader.hs (limited to 'fig-web/src/Fig/Web/Module/Shader.hs') diff --git a/fig-web/src/Fig/Web/Module/Shader.hs b/fig-web/src/Fig/Web/Module/Shader.hs new file mode 100644 index 0000000..d4b43cc --- /dev/null +++ b/fig-web/src/Fig/Web/Module/Shader.hs @@ -0,0 +1,18 @@ +module Fig.Web.Module.Shader + ( public + ) where + +import Fig.Prelude + +import Fig.Web.Utils +import Fig.Web.Types +import qualified Fig.Web.DB as DB + +public :: Module +public a = do + onGet "/api/shader" do + DB.get a.db "shader" >>= \case + Nothing -> do + status status404 + respondText "no shader present" + Just sh -> respondText $ decodeUtf8 sh -- cgit v1.2.3