From 719f926a48c6a5f592ce7491e30e6e95fd03722d Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Thu, 11 Dec 2014 15:58:57 +0000
Subject: [PATCH] GF.Server: remove some code duplication

---
 src/compiler/GF/Server.hs | 7 +------
 1 file changed, 1 insertion(+), 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)