diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Server.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/compiler/GF/Server.hs b/src/compiler/GF/Server.hs index 0fc7f0388..ce1c1fd0c 100644 --- a/src/compiler/GF/Server.hs +++ b/src/compiler/GF/Server.hs @@ -36,6 +36,7 @@ import System.Exit(ExitCode(..)) import Codec.Binary.UTF8.String(decodeString,encodeString) import GF.Infra.UseIO(readBinaryFile,writeBinaryFile,ePutStrLn) import GF.Infra.SIO(captureSIO) +import GF.Data.Utilities(apSnd,mapSnd) import qualified PGFService as PS import qualified ExampleService as ES import Data.Version(showVersion) @@ -484,11 +485,5 @@ inputs = queryToArguments . fixplus decode c = [c] -} -mapFst f xys = [(f x,y)|(x,y)<-xys] -mapSnd f xys = [(x,f y)|(x,y)<-xys] -mapBoth = map . apBoth -apBoth f (x,y) = (f x,f y) -apSnd f (x,y) = (x,f y) - infix 1 .= n .= v = (n,showJSON v) |