diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-03-03 11:40:44 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-03-03 11:40:44 +0100 |
| commit | f382decd8e14ef47f53f857ef90779abf20a7d39 (patch) | |
| tree | d1ff324bde53f42279df1dd40db0d0082dc19cf8 | |
| parent | 40a78f042b83346f595ca15daf9145c1d22c5502 (diff) | |
`HH.div []` -> `HH.div_`
| -rw-r--r-- | app/Main.hs | 9 | ||||
| -rw-r--r-- | default.nix | 2 |
2 files changed, 4 insertions, 7 deletions
diff --git a/app/Main.hs b/app/Main.hs index b71fefd..ad9b3ea 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -103,14 +103,11 @@ component = render :: (MonadDOM m, MonadUnliftIO m) => [Chat] -> H.ComponentHTML Action Slots m render chats = L.runLayoutM Horizontal $ L.do - HH.div - [] + HH.div_ ( Protolude.map ( \(index, (Chat chatMessages draft)) -> - HH.div - [] - [ HH.div - [] + HH.div_ + [ HH.div_ ( Protolude.map ( \(Message message) -> HH.text message diff --git a/default.nix b/default.nix index f3e7e05..72e2a7a 100644 --- a/default.nix +++ b/default.nix @@ -48,7 +48,7 @@ rec { '') (pkgs.writers.writeDashBin "serve-frontend" '' set -efu - ${pkgs.python3}/bin/python -m http.server -d ${pkgs.lib.escapeShellArg (toString ./.)}dist-newstyle/build/javascript-ghcjs/ghc-9.10.1/achat-0.1.0.0/x/frontend/build/frontend/frontend.jsexe & + ${pkgs.python3}/bin/python -m http.server -d ${pkgs.lib.escapeShellArg (toString ./.)}/dist-newstyle/build/javascript-ghcjs/ghc-9.10.1/achat-0.1.0.0/x/frontend/build/frontend/frontend.jsexe '') (pkgs.writers.writeDashBin "build-backend" '' set -efu |