Andromeda/elmskell
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some server stuff

Browse source
This commit is contained in:
MTGmonkey 2025-04-25 09:11:55 +02:00
parent f4e4e2eae1
commit a90f721dc4
6 changed files with 8 additions and 9750 deletions
Download patch file Download diff file Expand all files Collapse all files

6
backend/app/Main.hs
View file

@ -26,7 +26,7 @@ index compiledElmApp = renderHtml $ do
-- CONF
port :: Port
port = 3000
port = 8080
adminContact :: String
adminContact = "[Matrix] @mtgmonkey:calitabby.net"
@ -38,7 +38,7 @@ boilerplateJsFile :: AssetPath
boilerplateJsFile = "/js/init.js"
assetsFolder :: FilePath
assetsFolder = "./assets"
assetsFolder = "/home/mtgmonkey/elmskell/assets"
-- MAIN
main :: IO ()
@ -78,7 +78,7 @@ main = do
serverErrorReadFile :: E.IOException -> Js
serverErrorReadFile e = H.toHtml $ "document.getElementById('body').innerHTML='Server-side error occurred: "
++ (show e)
++ "; report htis to a site administrator: "
++ "; report this to a site administrator: "
++ adminContact
++ "';"