git.iko.soy/rowtype-yoga/purescm
on bytevector help sign in
Add line break to end of file
commitc90140a7a1a2bfbf1418ddd47743eccae2d59e1b authorJordan Martinez <jordanalex.martinez@protonmail.com> dateTue 14 Mar 2023, 07:36 (4 years ago) parent210d73b
2 files changed+5−3
test-snapshots/snapshots-output/Snapshot.Literals.ss+1−1 test/Main.purs+4−2
test-snapshots/snapshots-output/Snapshot.Literals.ss+1−1
@@ -1 +1 @@
1−(library (Snapshot.Literals lib) (export array array2 boolean1 boolean2 char int number record record2 string) (import (prefix (chezscheme) scm:)) (scm:define string "string") (scm:define record2 (scm:letrec* (($record (scm:make-hashtable scm:string-hash scm:string=?))) (scm:hashtable-set! $record "foo" "bar") $record)) (scm:define record (scm:letrec* (($record (scm:make-hashtable scm:string-hash scm:string=?))) $record)) (scm:define number 2.0) (scm:define int 1) (scm:define char #\a) (scm:define boolean2 #f) (scm:define boolean1 #t) (scm:define array2 (scm:vector 1 2 3)) (scm:define array (scm:vector)))
1+(library (Snapshot.Literals lib) (export array array2 boolean1 boolean2 char int number record record2 string) (import (prefix (chezscheme) scm:)) (scm:define string "string") (scm:define record2 (scm:letrec* (($record (scm:make-hashtable scm:string-hash scm:string=?))) (scm:hashtable-set! $record "foo" "bar") $record)) (scm:define record (scm:letrec* (($record (scm:make-hashtable scm:string-hash scm:string=?))) $record)) (scm:define number 2.0) (scm:define int 1) (scm:define char #\a) (scm:define boolean2 #f) (scm:define boolean1 #t) (scm:define array2 (scm:vector 1 2 3)) (scm:define array (scm:vector)))
test/Main.purs+4−2
@@ -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