summaryrefslogtreecommitdiff
path: root/apex/Ibb.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-08-30 06:58:18 -0700
committerBen Sima <ben@bsima.me>2019-08-30 06:58:18 -0700
commit265c9ade22edaee43a26aab06a9daf02aa74c631 (patch)
tree158f9d65c11792f131c204f92317dabe8499e482 /apex/Ibb.hs
parent7ba5a23f8656241c52320e2142d1bf7dd7dbffd2 (diff)
ibb: fix javascript reference
Diffstat (limited to 'apex/Ibb.hs')
-rw-r--r--apex/Ibb.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/apex/Ibb.hs b/apex/Ibb.hs
index 973960c..c626f3f 100644
--- a/apex/Ibb.hs
+++ b/apex/Ibb.hs
@@ -29,6 +29,7 @@ main = do
port <- read
<$> fromMaybe "3000"
<$> lookupEnv "PORT" :: IO Int
+ say "port: 3000"
run port $ logStdout $ compress $ app
where
compress = gzip def { gzipFiles = GzipCompress }
@@ -42,14 +43,14 @@ instance L.ToHtml a => L.ToHtml (HtmlPage a) where
L.doctypehtml_ $ do
L.head_ $ do
L.meta_ [L.charset_ "utf-8"]
- jsRef "/static/app.js"
+ jsRef "/static/all.js"
L.body_ (L.toHtml x)
where
jsRef href = L.with (L.script_ mempty)
[ makeAttribute "src" href
, makeAttribute "type" "text/javascript"
- -- , makeAttribute "async" mempty
- -- , makeAttribute "defer" mempty
+ , makeAttribute "async" mempty
+ , makeAttribute "defer" mempty
]
type ServerRoutes = ToServerRoutes Routes HtmlPage Action