diff options
| author | hallgren <hallgren@chalmers.se> | 2014-12-11 15:58:57 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-12-11 15:58:57 +0000 |
| commit | 719f926a48c6a5f592ce7491e30e6e95fd03722d (patch) | |
| tree | f861b220d3d127b04085a69b31ed4a1c5466ddf4 /src/compiler/GF/Server.hs | |
| parent | 709163c32e16b67582e399a110d3ba8a7d50de31 (diff) | |
GF.Server: remove some code duplication
Diffstat (limited to 'src/compiler/GF/Server.hs')
| -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) |