diff options
author | Ben Sima <ben@bsima.me> | 2019-08-30 06:58:18 -0700 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2019-08-30 06:58:18 -0700 |
commit | 265c9ade22edaee43a26aab06a9daf02aa74c631 (patch) | |
tree | 158f9d65c11792f131c204f92317dabe8499e482 | |
parent | 7ba5a23f8656241c52320e2142d1bf7dd7dbffd2 (diff) |
ibb: fix javascript reference
-rw-r--r-- | apex/Ibb.hs | 7 |
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 |