link to edit page from list page

1 files changed, 16 insertions, 6 deletions

diff --git a/frontend/app/Schema.hs b/frontend/app/Schema.hs
index ee958d8..0530061 100644
--- a/frontend/app/Schema.hs
+++ b/frontend/app/Schema.hs
@@ -19,6 +19,7 @@ import Data.Text qualified as T
 import Form qualified as F
 import Miso
 import Miso.String (toMisoString)
+import Route
 
 data Schema = Schema
   { id :: String,
@@ -66,8 +67,8 @@ viewSchema schema =
         )
           <$> (M.toList properties)
 
-schemaTable :: Schema -> [A.Value] -> View action
-schemaTable schema values =
+schemaTable :: String -> Schema -> [A.Value] -> View action
+schemaTable collection schema values =
   table_ [] [thead, tbody]
   where
     thead =
@@ -85,10 +86,19 @@ schemaTable schema values =
           [ tr_
               []
               [ td_ [] $
-                  [ text $
-                      case getO (AK.fromString k) value of
-                        A.String s -> toMisoString s
-                        value -> toMisoString (A.encode value)
+                  [ case (k, getO (AK.fromString k) value) of
+                      ("$fileName", A.String fn) ->
+                        a_
+                          [ href_
+                              (toMisoString (routeToString (EditValue collection (T.unpack fn))))
+                          ]
+                          [ text (toMisoString fn)
+                          ]
+                      (_, v) ->
+                        text $
+                          case v of
+                            A.String s -> toMisoString s
+                            _ -> toMisoString (A.encode v)
                   ]
                 | k <- M.keys properties
               ]