X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.data%2Fscl%2FData%2FWriter.scl;h=1b4843b1c0d9c21130ce4caac1236a583c7426ba;hb=HEAD;hp=4c526f2c1a6a80cda39755f3ff950704a2c7403c;hpb=d70b5f7a4cdeea05c7526560303feffeb03596b0;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.scl.data/scl/Data/Writer.scl b/bundles/org.simantics.scl.data/scl/Data/Writer.scl index 4c526f2c1..1b4843b1c 100644 --- a/bundles/org.simantics.scl.data/scl/Data/Writer.scl +++ b/bundles/org.simantics.scl.data/scl/Data/Writer.scl @@ -1,18 +1,18 @@ -import "JavaBuiltin" as Java - -importJava "java.io.Writer" where - data Writer - -importJava "java.io.StringWriter" where - data StringWriter - - @JavaName "" - createStringWriter :: StringWriter - - @JavaName toString - resultOfStringWriter :: StringWriter -> String - -class WriterLike a where - toWriter :: a -> Writer -instance WriterLike StringWriter where +import "JavaBuiltin" as Java + +importJava "java.io.Writer" where + data Writer + +importJava "java.io.StringWriter" where + data StringWriter + + @JavaName "" + createStringWriter :: StringWriter + + @JavaName toString + resultOfStringWriter :: StringWriter -> String + +class WriterLike a where + toWriter :: a -> Writer +instance WriterLike StringWriter where toWriter = Java.unsafeCoerce \ No newline at end of file