diff options
author | stuebinm | 2022-08-14 15:44:19 +0200 |
---|---|---|
committer | stuebinm | 2022-08-14 15:44:19 +0200 |
commit | ce14bc010a8f97cd3bab6f5cbd998f614b811546 (patch) | |
tree | 854b2726c68b9be3925d8ad222f6afce8b2378a7 /lib/Persist.hs | |
parent | f13e72076dbdcf0cd53d8558fccbedb98b8ea492 (diff) |
controlroom: replace servant/lucid with yesod
aka use something meant for webapps to write the webapp
Diffstat (limited to 'lib/Persist.hs')
-rw-r--r-- | lib/Persist.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |