@@ -101,8 +101,10 @@ runSnapshotTests { accept, filter } = do
101101 , onCodegenModule: \_ (Module { name: ModuleName name, path }) backend -> do
102102 let
103103 formatted =
104− Dodo.print plainText Dodo.twoSpaces $ S.printChezExpr $ codegenModule
105− backend
104+ Dodo.print plainText Dodo.twoSpaces
105+ $ flip append Dodo.break
106+ $ S.printChezExpr
107+ $ codegenModule backend
106108 let testFileDir = Path.concat [ testOut, name ]
107109 let testFilePath = Path.concat [ testFileDir, "output.ss" ]
108110 mkdirp testFileDir