rename prettily

2024-03-26 12:41:33 -06:00
parent f6c53879ff
commit 0650e1d32d
2 changed files with 33 additions and 9 deletions
--- a/app/Server.hs
+++ b/app/Server.hs
@@ -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