1 files changed, 12 insertions, 0 deletions
diff --git a/src/editor/simple/save.hs b/src/editor/simple/save.hs
new file mode 100644
index 000000000..01d3ce270
--- /dev/null
+++ b/src/editor/simple/save.hs
@@ -0,0 +1,12 @@
+import Monad(zipWithM_)
+import System(getArgs)
+
+main = save =<< getArgs
+
+save [dir] =
+  do fs@[ns,_] <- readIO =<< getContents
+     save_all fs
+     putStrLn $ unwords [n++".gf"|n<-ns]
+  where
+    save_all [ns,cs] = zipWithM_ write1 ns cs
+    write1 n = writeFile (dir++"/"++n++".gf")