From f95d9bbde51ee26468177b2d34c669d9689fbea4 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 30 May 2025 02:55:35 -0400 Subject: web: Big refactor part 2 --- fig-web/src/Fig/Web/Module/Exchange.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fig-web/src/Fig/Web/Module/Exchange.hs') diff --git a/fig-web/src/Fig/Web/Module/Exchange.hs b/fig-web/src/Fig/Web/Module/Exchange.hs index 32851fa..3672265 100644 --- a/fig-web/src/Fig/Web/Module/Exchange.hs +++ b/fig-web/src/Fig/Web/Module/Exchange.hs @@ -19,13 +19,13 @@ import qualified Data.UUID.V4 as UUID import Fig.Web.Utils import Fig.Web.Types -public :: Module +public :: PublicModule public a = do onGet "/api/exchange" do listings <- getOrders a.db.conn respondJSON listings -secure :: Module +secure :: SecureModule secure a = do onPost "/api/exchange" $ authed \creds -> do haveCur <- formParam "haveCur" -- cgit v1.2.3