@@ -72,10 +72,8 @@ getWebOpts = do
72
72
#if !defined(__GHCJS__) && !defined(ghcjs_HOST_OS) && !defined(wasi_HOST_OS)
73
73
runApp :: JSM () -> IO ()
74
74
runApp app = do
75
- cap <- BL. readFile " ../miso-functora/js/main.min.js"
76
- js0 <- BL. readFile " static/app.js"
77
- js1 <- BL. readFile " ../miso-components/material-components-web.min.js"
78
- js2 <- BL. readFile " ../miso-components/material-components-web-elm.min.js"
75
+ js0 <- BL. readFile " ../miso-functora/js/main.min.js"
76
+ js1 <- BL. readFile " static/app.js"
79
77
Warp. runSettings
80
78
( Warp. setPort
81
79
8080
@@ -84,12 +82,14 @@ runApp app = do
84
82
=<< JS. jsaddleOr
85
83
Ws. defaultConnectionOptions
86
84
(app >> syncPoint)
87
- (router $ cap <> js0 <> js1 <> js2 )
85
+ (router $ js0 <> js1)
88
86
where
89
87
router js req =
90
88
case Wai. pathInfo req of
91
89
(" static" : _) ->
92
90
staticApp (defaultWebAppSettings " ." ) req
91
+ (" node_modules" : _) ->
92
+ staticApp (defaultWebAppSettings " ." ) req
93
93
(" favicon.ico" : _) ->
94
94
staticApp (defaultWebAppSettings " static" ) req
95
95
(" site.webmanifest" : _) ->
@@ -234,22 +234,26 @@ updateModel (PushUpdate updater) st = do
234
234
]
235
235
236
236
viewModel :: Model -> View Action
237
- #if !defined(__GHCJS__) && !defined(ghcjs_HOST_OS) && !defined(wasi_HOST_OS)
237
+ #if defined(__GHCJS__) || defined(ghcjs_HOST_OS) || defined(wasi_HOST_OS)
238
+ viewModel st =
239
+ mainWidget st
240
+ #else
238
241
viewModel st =
239
242
div_
240
243
mempty
241
- [ link_ [rel_ " stylesheet" , href_ " static/material-components-web.min.css" ],
242
- link_ [rel_ " stylesheet" , href_ " static/material-icons.css" ],
243
- link_ [rel_ " stylesheet" , href_ " static/app.css" ],
244
+ [ link_
245
+ [ rel_ " stylesheet" ,
246
+ href_ " node_modules/@lowlighter/matcha/dist/matcha.css"
247
+ ],
248
+ link_
249
+ [ rel_
250
+ " stylesheet" ,
251
+ href_ " static/app.css"
252
+ ],
244
253
mainWidget st
245
254
]
246
255
#endif
247
256
248
- #if defined(__GHCJS__) || defined(ghcjs_HOST_OS) || defined(wasi_HOST_OS)
249
- viewModel st =
250
- mainWidget st
251
- #endif
252
-
253
257
extendedEvents :: Map Unicode Bool
254
258
extendedEvents =
255
259
defaultEvents
0 commit comments