@@ -29,7 +29,7 @@ data CodegenFile = CGFile {
2929
3030-- Update the version when the format changes
3131formatVersion :: Int
32−formatVersion = 1
32+formatVersion = 2
3333
3434writePortable :: Handle -> CodegenInfo -> IO ()
3535writePortable file ci = do
@@ -236,13 +236,13 @@ instance ToJSON SExp where
236236 toJSON (SApp tail name exps) = object ["SApp" .= (tail, name, exps)]
237237 toJSON (SLet lv a b) = object ["SLet" .= (lv, a, b)]
238238 toJSON (SUpdate lv exp) = object ["SUpdate" .= (lv, exp)]
239− toJSON (SProj lv i) = object ["DProj" .= (lv, i)]
239+ toJSON (SProj lv i) = object ["SProj" .= (lv, i)]
240240 toJSON (SCon lv i name vars) = object ["SCon" .= (lv, i, name, vars)]
241241 toJSON (SCase ct lv alts) = object ["SCase" .= (ct, lv, alts)]
242− toJSON (SChkCase lv alts) = object ["DChkCase" .= (lv, alts)]
242+ toJSON (SChkCase lv alts) = object ["SChkCase" .= (lv, alts)]
243243 toJSON (SConst c) = object ["SConst" .= c]
244244 toJSON (SForeign fd ret exps) = object ["SForeign" .= (fd, ret, exps)]
245− toJSON (SOp prim vars) = object ["DOp" .= (prim, vars)]
245+ toJSON (SOp prim vars) = object ["SOp" .= (prim, vars)]
246246 toJSON SNothing = object ["SNothing" .= Null]
247247 toJSON (SError s) = object ["SError" .= s]
248248