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

   1 import "Prelude"
   2 import "Vector"
   3 import "File"
   4
   5 @private
   6 copyDir2 :: File -> <Proc> ()
   7 copyDir2 sourceDir = iter copyDir $ vectorToList $ listFiles sourceDir
   8
   9 @private
  10 copyDir :: File -> File -> <Proc> ()
  11 copyDir sourceDir targetDir = do
  12   makeDirs targetDir
  13   files = vectorToList $ listFiles sourceDir
  14   iter (\sourceFile -> do
  15     targetFile = childFile targetDir $ nameOfFile sourceFile
  16     if isDirectory sourceFile then
  17       copyDir sourceFile targetFile
  18     else
  19       copyFile sourceFile targetFile
  20   ) files
  21   ()
  22
  23 main = "OK"
  24 ----
  25 OK