RTS -N

Author: seanhess

image/entrypoint.sh

@@ -1,16 +1,12 @@
 #!/bin/bash
 
-
 set -e
 
 echo "MIGRATING $DATABASE_URL"
 /root/.cargo/bin/sqlx migrate run
 
 echo "RUNNING"
 
-# use THREADS=1 if it doesn't exist
-# docker run -e THREADS=24 --cpuset-cpus="0-23" --cpuset-mems="0" level2
-: "${THREADS:=1}"
-
-# exec ./level2 +RTS -N"${THREADS}" -s -RTS
-exec ./level2 +RTS -N"${THREADS}" -RTS
+# Run with all available CPUs
+# See CPU_WORKERS to limit number allowed for CPU-intensive tasks
+exec ./level2 +RTS -N -RTS

src/App/Page/Dashboard.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE UndecidableInstances #-}
 
 module App.Page.Dashboard where
@@ -39,8 +38,8 @@ page = do
     col ~ pad 20 . gap 20 $ do
       col $ do
         el ~ fontSize 24 . bold $ "Level 2"
-        el $ text $ appVersion.value
-        link gitVersionURI ~ Style.link $ text $ gitVersion.value
+        el $ text appVersion.value
+        link gitVersionURI ~ Style.link $ text gitVersion.value
 
       col $ do
         el ~ bold . fontSize 18 $ "Admin"