From db4753aa2d627f9ec8b41a47afb5a6fcf5e54777 Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 6 Jul 2011 16:55:42 +0000 Subject: gfse: grammars in the cloud, work in progress --- src/editor/simple/save.hs | 28 ++++++++++++++++++---------- 1 file changed, 18 insertions(+), 10 deletions(-) (limited to 'src/editor/simple/save.hs') 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 -- cgit v1.2.3