bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/Bug4450.scl

   1 import "Prelude"\r
   2 \r
   3 csvWrite :: String -> [[String]] -> <Proc> ()\r
   4 csvWrite fname rows = ()\r
   5 \r
   6 /// Like writeEntries but with a transformer function also for values.\r
   7 /// kfun key + vfun value should have the length of header.\r
   8 writeEntries' :: (k -> [String]) -> (v -> [String])\r
   9     -> String -> [String] -> [(k, v)] -> <Proc> ()\r
  10 writeEntries' kfun vfun fname header rows =\r
  11     csvWrite fname $ [header] + [kfun k + vfun v | (k, v) <- rows]\r
  12     \r
  13 main = "OK"\r
  14 --\r
  15 OK