From 44d1a5a9f71b03d9aceeccd760a63fcdc45f8bad Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 12 Oct 2011 17:03:54 +0000
Subject: 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.
---
 src/editor/simple/save.hs | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 src/editor/simple/save.hs

(limited to 'src/editor/simple/save.hs')

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
-- 
cgit v1.2.3