@@ -29,7 +29,7 @@ data CodegenFile = CGFile {
30-- Update the version when the format changes
30-- Update the version when the format changes
31formatVersion :: Int
31formatVersion :: Int
32−formatVersion = 1
32+formatVersion = 2
34writePortable :: Handle -> CodegenInfo -> IO ()
34writePortable :: Handle -> CodegenInfo -> IO ()
35writePortable file ci = do
35writePortable file ci = do
@@ -236,13 +236,13 @@ instance ToJSON SExp where
236 toJSON (SApp tail name exps) = object ["SApp" .= (tail, name, exps)]
236 toJSON (SApp tail name exps) = object ["SApp" .= (tail, name, exps)]
237 toJSON (SLet lv a b) = object ["SLet" .= (lv, a, b)]
237 toJSON (SLet lv a b) = object ["SLet" .= (lv, a, b)]
238 toJSON (SUpdate lv exp) = object ["SUpdate" .= (lv, exp)]
238 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)]
240 toJSON (SCon lv i name vars) = object ["SCon" .= (lv, i, name, vars)]
240 toJSON (SCon lv i name vars) = object ["SCon" .= (lv, i, name, vars)]
241 toJSON (SCase ct lv alts) = object ["SCase" .= (ct, lv, alts)]
241 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)]
243 toJSON (SConst c) = object ["SConst" .= c]
243 toJSON (SConst c) = object ["SConst" .= c]
244 toJSON (SForeign fd ret exps) = object ["SForeign" .= (fd, ret, exps)]
244 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)]
246 toJSON SNothing = object ["SNothing" .= Null]
246 toJSON SNothing = object ["SNothing" .= Null]
247 toJSON (SError s) = object ["SError" .= s]
247 toJSON (SError s) = object ["SError" .= s]