rename prettily

2024-04-15 10:07:21 -06:00
parent ed353f02ab
commit f56990a59a
2 changed files with 33 additions and 9 deletions
@@ -92,7 +92,9 @@ serialiseSc :: (PsName, [Pat PsName], Cofree (RlpExprF PsName) (Type PsName))
 serialiseSc (n,as,e) = object
    [ "name" .= n
    , "args" .= as
-    , "body" .= serialiseAnnotated (e <&> renamePrettily) ]
+    , "body" .= let root = extract e
+                in serialiseAnnotated (e <&> renamePrettily root)
+    ]

 serialiseAnnotated :: Cofree (RlpExprF PsName) (Type PsName)
                   -> Value