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

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