gfse: grammars in the cloud, work in progress

1 files changed, 18 insertions, 10 deletions

diff --git a/src/editor/simple/save.hs b/src/editor/simple/save.hs
index e29287d33..0472ff5e8 100644
--- a/src/editor/simple/save.hs
+++ b/src/editor/simple/save.hs
@@ -1,17 +1,25 @@
-import Monad(zipWithM)
 import System(getArgs)
+import CGI(getQuery,string)
+import MUtils(apSnd)
 
-main = save =<< getArgs
+main = save2 =<< getArgs
 
-save [dir] =
+{-
+save1 [dir] =
   do fs@[ns,_] <- readIO =<< getContents
      nes <- save_all fs
      putStrLn $ unwords nes
   where
-    save_all [ns,cs] = zipWithM write1 ns cs
-    write1 n c = 
-       do writeFile (dir++"/"++ne) c
-          return ne
-      where
-        ne=if '.' `elem` n then n else n++".gf"
- 
\ No newline at end of file
+    save_all [ns,cs] = mapM (write1 dir) (zip ns cs)
+-}
+
+write1 dir (n,c) = 
+   do writeFile (dir++"/"++ne) c
+      return ne
+  where
+    ne=if '.' `elem` n then n else n++".gf"
+ 
+save2 [dir] =
+  do nfs <- getQuery
+     nes <- mapM (write1 dir . apSnd string) nfs
+     putStrLn $ unwords nes