diff options
Diffstat (limited to 'frontend/app/Page/EditValue.hs')
| -rw-r--r-- | frontend/app/Page/EditValue.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/frontend/app/Page/EditValue.hs b/frontend/app/Page/EditValue.hs index 7945874..942d9db 100644 --- a/frontend/app/Page/EditValue.hs +++ b/frontend/app/Page/EditValue.hs @@ -11,13 +11,11 @@ import ACMS.API.REST.Collection qualified as API.REST.Collection import Control.Monad.Catch (SomeException, try) import Data.Aeson qualified as A import Data.Aeson.KeyMap qualified as AM -import Data.ByteString.Lazy.UTF8 qualified as LB import Data.Maybe import Effect (Eff) import Form qualified as F import Miso import Miso.String (toMisoString) -import Safe (headMay) import Schema import Collection @@ -31,7 +29,7 @@ data Model = Model initialModel :: CollectionItem -> JSM (Either SomeException Model) initialModel collectionItem = do schema' <- try (API.REST.Collection.schema collectionItem.collection) - input' <- try (headMay <$> API.REST.Collection.read collectionItem) + input' <- try (API.REST.Collection.read collectionItem) pure do schema <- schema' input <- input' |