tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/PatternError.scl

   1 import "Prelude"
   2
   3 data CP = CP Integer String
   4
   5 //cpName :: CP -> String
   6 cpName CP cp name = name
   7
   8 connectionPoints :: Integer -> [(CP, CP)]
   9 connectionPoints n = []
  10
  11 hasTerminalProblems :: Integer -> Boolean
  12 hasTerminalProblems uc =
  13     let cps = connectionPoints uc
  14         cpCount = length cps
  15         dcps = map snd cps
  16         dnames = map cpName dcps
  17         dcpNameCount = length $ unique $ sort dnames
  18     in cpCount != dcpNameCount
  19
  20 main = "Not OK"
  21 --
  22 6:8-6:10: ???