diff options
| author | hallgren <hallgren@chalmers.se> | 2011-10-12 17:03:54 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2011-10-12 17:03:54 +0000 |
| commit | 44d1a5a9f71b03d9aceeccd760a63fcdc45f8bad (patch) | |
| tree | d51076a708997d6f1af6ac0deefd535bbc25f804 /src/editor/simple/save.hs | |
| parent | 0aba45560d2033c37c3d2e876e6f3ef89e1554d6 (diff) | |
Improvements of "gf -server" mode and related setup
"gf -server" mode now contains everything needed to run the minibar and
the grammar editor (including example-based grammar writing).
The Setup.hs script installs the required files where gf -server can find them.
These files have been moved to a new directory: src/www.
The separate server program pgf-http is now obsolete.
Diffstat (limited to 'src/editor/simple/save.hs')
| -rw-r--r-- | src/editor/simple/save.hs | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/src/editor/simple/save.hs b/src/editor/simple/save.hs deleted file mode 100644 index 0472ff5e8..000000000 --- a/src/editor/simple/save.hs +++ /dev/null @@ -1,25 +0,0 @@ -import System(getArgs) -import CGI(getQuery,string) -import MUtils(apSnd) - -main = save2 =<< getArgs - -{- -save1 [dir] = - do fs@[ns,_] <- readIO =<< getContents - nes <- save_all fs - putStrLn $ unwords nes - where - 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 |
