diff --git a/app/src/Metajelo/UI.purs b/app/src/Metajelo/UI.purs index ae712b2..ab1b433 100644 --- a/app/src/Metajelo/UI.purs +++ b/app/src/Metajelo/UI.purs @@ -8,11 +8,13 @@ import Concur.React (HTML) import Concur.React.DOM as D import Concur.React.Run (runWidgetInDom) import Data.Array.NonEmpty (NonEmptyArray) +import Data.Foldable (fold, foldMap) import Data.Maybe (Maybe(..)) import Data.Show (show) import Effect (Effect) import Metajelo.Forms as MF import Metajelo.Types as M +import Metajelo.View as MV main :: Effect Unit main = pure unit @@ -62,8 +64,15 @@ accumulateLocation locMay = D.div_ [] do Nothing Nothing Nothing - -- TODO: render location + display $ locWidg pure newLocMay + where + locWidg :: forall a. Widget HTML a + locWidg = D.div' [ + D.h3' [D.text "Last submitted location summary for this product:"] + , D.br' + , foldMap (\loc -> fold $ MV.spacify $ MV.locElems loc) locMay + ] -- TODO: so far just a test of retrieving data from signals accumulateRecord :: String -> Signal HTML String diff --git a/packages.dhall b/packages.dhall index 1588c34..eb3c411 100644 --- a/packages.dhall +++ b/packages.dhall @@ -168,7 +168,7 @@ let additions = , "url-validator" ] "https://github.com/labordynamicsinstitute/metajelo-web.git" - "v1.0.2" + "f5d1ff27f80c03c4686bc7fa706097aed3f3a871" , naturals = mkPackage [ "enums", "maybe", "prelude" ]