X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FNonexistentTypeClassInAnnotation.scl;h=8c39c6f6e981f2e6c8b876b45c53b204ae5674b9;hb=refs%2Fchanges%2F38%2F238%2F2;hp=40306395a9ed8ece41ba9be3ac5dcb6def741447;hpb=0cbe7783b5f5297ab926fa742e023cfcbdcba43d;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/NonexistentTypeClassInAnnotation.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/NonexistentTypeClassInAnnotation.scl index 40306395a..8c39c6f6e 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/NonexistentTypeClassInAnnotation.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/NonexistentTypeClassInAnnotation.scl @@ -1,9 +1,9 @@ -import "Prelude" - -deepId :: FooBar b => b -> a -> a -deepId count x = deepId2 count x -deepId2 count x = if count <= 0 then x else deepId (count-1) x - -main = deepId (5 :: Integer) "FOO" --- +import "Prelude" + +deepId :: FooBar b => b -> a -> a +deepId count x = deepId2 count x +deepId2 count x = if count <= 0 then x else deepId (count-1) x + +main = deepId (5 :: Integer) "FOO" +-- 3:11-3:17: Unresolved type class FooBar. \ No newline at end of file