diff options
Diffstat (limited to 'frontend/app')
-rw-r--r-- | frontend/app/Form/Input.hs | 2 | ||||
-rw-r--r-- | frontend/app/Page/EditValue.hs | 2 |
2 files changed, 2 insertions, 2 deletions
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, |