From caf72faccc04e647c27e1b5eef85c515949d8210 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 20 Feb 2025 12:29:35 +0100 Subject: consolidate `backend, cli, common` -> `acms` --- frontend/app/Form/Input.hs | 2 +- frontend/app/Page/EditValue.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'frontend/app') diff --git a/frontend/app/Form/Input.hs b/frontend/app/Form/Input.hs index 0b4f1ca..040b961 100644 --- a/frontend/app/Form/Input.hs +++ b/frontend/app/Form/Input.hs @@ -160,7 +160,7 @@ inputText label = value_ i, onInput id ], - div_ [ class_ "error-helper" ] $ + div_ [class_ "error-helper"] $ [either text (\_ -> text "") (parse i)] ] ] diff --git a/frontend/app/Page/EditValue.hs b/frontend/app/Page/EditValue.hs index 942d9db..8a7ca15 100644 --- a/frontend/app/Page/EditValue.hs +++ b/frontend/app/Page/EditValue.hs @@ -8,6 +8,7 @@ module Page.EditValue where import ACMS.API.REST.Collection qualified as API.REST.Collection +import Collection import Control.Monad.Catch (SomeException, try) import Data.Aeson qualified as A import Data.Aeson.KeyMap qualified as AM @@ -17,7 +18,6 @@ import Form qualified as F import Miso import Miso.String (toMisoString) import Schema -import Collection data Model = Model { collectionItem :: CollectionItem, -- cgit v1.2.3