From ce14bc010a8f97cd3bab6f5cbd998f614b811546 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 14 Aug 2022 15:44:19 +0200
Subject: controlroom: replace servant/lucid with yesod

aka use something meant for webapps to write the webapp
---
 lib/Persist.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/Persist.hs')

diff --git a/lib/Persist.hs b/lib/Persist.hs
index f42c1cc..c9c7901 100644
--- a/lib/Persist.hs
+++ b/lib/Persist.hs
@@ -46,7 +46,6 @@ import           Data.Time.Calendar          (Day, DayOfWeek (..))
 import           Data.Vector                 (Vector)
 import           Database.Persist.Postgresql (SqlBackend)
 import           GHC.Generics                (Generic)
-import           Lucid.Forms                 (ToHtmlFormInput)
 import           Web.PathPieces              (PathPiece)
 
 newtype Token = Token UUID
@@ -60,7 +59,7 @@ instance ToParamSchema Token where
   toParamSchema _ = toParamSchema (Proxy @String)
 
 data AmendmentStatus = Cancelled | Added
-  deriving (ToJSON, FromJSON, Generic, Show, Read, Eq, ToHtmlFormInput)
+  deriving (ToJSON, FromJSON, Generic, Show, Read, Eq)
 derivePersistField "AmendmentStatus"
 instance FromHttpApiData AmendmentStatus where
   parseUrlPiece "Cancelled" = Right Cancelled
-- 
cgit v1.2.3