revert to plain for now mkdir
authorhaftmann
Thu Jul 01 08:12:40 2010 +0200 (2010-07-01)
changeset 37661f6b592f2aca4
parent 37660 56e3520b68b2
child 37662 35c060043a5a
revert to plain for now mkdir
src/Tools/Code/code_haskell.ML
src/Tools/Code/code_scala.ML
     1.1 --- a/src/Tools/Code/code_haskell.ML	Wed Jun 30 17:12:38 2010 +0200
     1.2 +++ b/src/Tools/Code/code_haskell.ML	Thu Jul 01 08:12:40 2010 +0200
     1.3 @@ -382,7 +382,7 @@
     1.4            | _ => (Path.ext "hs" o Path.explode o implode o separate "/"
     1.5                  o Long_Name.explode) modlname;
     1.6          val pathname = Path.append destination filename;
     1.7 -        val _ = File.mkdir_leaf (Path.dir pathname);
     1.8 +        val _ = File.mkdir (Path.dir pathname);
     1.9        in File.write pathname
    1.10          ("{-# OPTIONS_GHC -fglasgow-exts #-}\n\n"
    1.11            ^ code_of_pretty content)
     2.1 --- a/src/Tools/Code/code_scala.ML	Wed Jun 30 17:12:38 2010 +0200
     2.2 +++ b/src/Tools/Code/code_scala.ML	Thu Jul 01 08:12:40 2010 +0200
     2.3 @@ -376,7 +376,7 @@
     2.4            | _ => (Path.ext "scala" o Path.explode o implode o separate "/"
     2.5                  o Long_Name.explode) modlname;
     2.6          val pathname = Path.append destination filename;
     2.7 -        val _ = File.mkdir_leaf (Path.dir pathname);
     2.8 +        val _ = File.mkdir (Path.dir pathname);
     2.9        in File.write pathname (code_of_pretty content) end
    2.10    in
    2.11      Code_Target.mk_serialization target NONE