address overflow in Prettier,

move Pi constructor to before it is constructed
2024-11-06 06:59:23 -08:00
parent 0a6807831c
commit d82c224bc3
2 changed files with 9 additions and 9 deletions
--- a/src/Main.idr
+++ b/src/Main.idr
@@ -41,11 +41,11 @@ dumpContext top = do
 writeSource : String -> M ()
 writeSource fn = do
  docs <- compile
-  let src = unlines $ ["#!/usr/bin/env node"]
+  let src = unlines $
+        [ "#!/usr/bin/env node"
+        ,  "const PiType = (h0, h1) => ({ tag: \"PiType\", h0, h1 })" ]
        ++ map (render 90) docs
-        ++ [ "const PiType = (h0, h1) => ({ tag: \"PiType\", h0, h1 })"
-           , "main();"
-           ]
+        ++ [ "main();" ]
  Right _ <- writeFile fn src
    | Left err => fail (show err)
  Right _ <- chmodRaw fn 493 | Left err => fail (show err)