improve REST API

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'