From b72a7f0bd0ea06c1430cad726a97e5961e35582e Mon Sep 17 00:00:00 2001
From: nimec01 <24428341+nimec01@users.noreply.github.com>
Date: Wed, 13 May 2026 12:43:37 +0200
Subject: [PATCH 1/2] disable caching

---
 codeworld-server/src/Main.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/codeworld-server/src/Main.hs b/codeworld-server/src/Main.hs
index 48f4f586..7ad06f3a 100644
--- a/codeworld-server/src/Main.hs
+++ b/codeworld-server/src/Main.hs
@@ -42,7 +42,7 @@ import qualified Data.Text as T (drop, intercalate, lines, pack, splitAt, splitO
 import qualified Data.Text.Encoding as T (decodeUtf8, encodeUtf8)
 import qualified Data.Text.IO as T (writeFile)
 import Ormolu (OrmoluException, defaultConfig, ormolu)
-import Snap.Core (Snap, getParam, modifyResponse, redirect, route, setContentType, setResponseCode, writeBS, writeLBS)
+import Snap.Core (Snap, getParam, modifyResponse, redirect, route, setContentType, setResponseCode, writeBS, writeLBS, setHeader)
 import Snap.Http.Server (ConfigLog (ConfigIoLog), httpServe)
 import qualified Snap.Http.Server.Config as S (commandLineConfig, defaultConfig, setErrorLog, setPort)
 import Snap.Util.FileServe (serveDirectory, serveFile)
@@ -99,6 +99,9 @@ codeworldUploadPolicy :: UploadPolicy
 codeworldUploadPolicy =
   setMaximumFormInputSize (2 ^ (23 :: Int)) defaultUploadPolicy
 
+disableCaching :: Snap ()
+disableCaching = modifyResponse $ setHeader "Cache-Control" "no-cache"
+
 -- Processes the body of a multipart request.
 #if MIN_VERSION_snap_core(1,0,0)
 processBody :: Snap ()
@@ -132,7 +135,7 @@ site ctx =
           ("run.html", redirect "/run"),
           ("env.html", redirect "/")
         ]
-   in route routes <|> serveDirectory "web"
+   in (route routes <|> serveDirectory "web") >> disableCaching
 
 assert :: Bool -> IO ()
 assert p =

From 9d8ab043421b55b4a43031aff93f7cbfa090353b Mon Sep 17 00:00:00 2001
From: nimec01 <24428341+nimec01@users.noreply.github.com>
Date: Fri, 15 May 2026 09:48:09 +0200
Subject: [PATCH 2/2] change processing order

---
 codeworld-server/src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/codeworld-server/src/Main.hs b/codeworld-server/src/Main.hs
index 7ad06f3a..105d28f2 100644
--- a/codeworld-server/src/Main.hs
+++ b/codeworld-server/src/Main.hs
@@ -135,7 +135,7 @@ site ctx =
           ("run.html", redirect "/run"),
           ("env.html", redirect "/")
         ]
-   in (route routes <|> serveDirectory "web") >> disableCaching
+   in disableCaching >>  (route routes <|> serveDirectory "web")
 
 assert :: Bool -> IO ()
 assert p =