Move code snippets to problem state file

slycelote · Jan 26, 2022 · 41f6f60 · 41f6f60
1 parent 0551550
commit 41f6f60
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/libcaide/src/Caide/Commands/ParseProblem.hs b/libcaide/src/Caide/Commands/ParseProblem.hs
@@ -71,11 +71,11 @@ initializeProblem problem = withLock $ do
     hProblemConf <- createConf problemConfPath defaultProblemConfig
     setProp hProblemConf "problem" "name" $ problemName problem
     setProp hProblemConf "problem" "type" $ problemType problem
-    let snippets = problemCodeSnippets problem & Aeson.encode & LBS.toStrict & safeDecodeUtf8
-    unless (Map.null (problemCodeSnippets problem)) $
-        setProp hProblemConf "problem" "snippets" snippets
 
     hProblemState <- createConf problemStatePath defaultProblemState
+    let snippets = problemCodeSnippets problem & Aeson.encode & LBS.toStrict & safeDecodeUtf8
+    unless (Map.null (problemCodeSnippets problem)) $
+        setProp hProblemState "problem" "snippets" snippets
 
     flushConf hProblemConf
     flushConf hProblemState

diff --git a/libcaide/src/Caide/Problem.hs b/libcaide/src/Caide/Problem.hs
@@ -30,8 +30,13 @@ readProblemInfo probId = do
     pname <- getProp hProblemInfo "problem" "name"
     ptype <- getProp hProblemInfo "problem" "type"
     fpTolerance <- getProp hProblemInfo "problem" "double_precision"
+
+    -- We keep snippets in the state file to avoid huge chunk of text in problem.ini.
+    -- Users won't need to modify per-problem snippets anyway (if they do they'll modify
+    -- generated code).
+    hProblemState <- Conf.readProblemState probId
     snippets <- (LBS.fromStrict . T.encodeUtf8) <$>
-        getProp hProblemInfo "problem" "snippets" `Conf.orDefault` "{}"
+        getProp hProblemState "problem" "snippets" `Conf.orDefault` "{}"
     return $ Problem
         { problemName = pname
         , problemId = probId