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

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