Demo in the todo app. TO BE REVERTED

This commit is contained in:
Mikołaj Biel 2022-08-03 22:23:34 +02:00
parent 5cbbe4bc99
commit 06d061ae76
No known key found for this signature in database
GPG Key ID: 154FDF671A221ADE
3 changed files with 7 additions and 2 deletions

View File

@ -11,6 +11,7 @@ Main module for the 'Todo' example.
{-# LANGUAGE BinaryLiterals #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TemplateHaskell #-}
module Main where
@ -26,6 +27,8 @@ import TodoTypes
import qualified Monomer.Lens as L
import qualified Data.Text as T
import Data.FileEmbed (embedFile)
import Monomer.Main.Types (appFontDefMem)
type TodoWenv = WidgetEnv TodoModel TodoEvt
type TodoNode = WidgetNode TodoModel TodoEvt
@ -248,7 +251,7 @@ main = do
appWindowIcon "./assets/images/icon.png",
appTheme customDarkTheme,
appFontDef "Regular" "./assets/fonts/Roboto-Regular.ttf",
appFontDef "Medium" "./assets/fonts/Roboto-Medium.ttf",
appFontDefMem "Medium" $(embedFile "./assets/fonts/Roboto-Medium.ttf"),
appFontDef "Bold" "./assets/fonts/Roboto-Bold.ttf",
appFontDef "Remix" "./assets/fonts/remixicon.ttf",
appInitEvent TodoInit

View File

@ -1,6 +1,6 @@
cabal-version: 1.12
-- This file has been generated from package.yaml by hpack version 0.34.4.
-- This file has been generated from package.yaml by hpack version 0.34.7.
--
-- see: https://github.com/sol/hpack
@ -375,6 +375,7 @@ executable todo
, data-default >=0.5 && <0.8
, exceptions ==0.10.*
, extra >=1.6 && <1.9
, file-embed
, formatting >=6.0 && <8.0
, http-client >=0.6 && <0.9
, lens >=4.16 && <6

View File

@ -81,6 +81,7 @@ executables:
- -threaded
dependencies:
- monomer
- file-embed
books:
main: Main.hs