GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

GF.Server: remove some code duplication

Browse Source
This commit is contained in:
hallgren
2014-12-11 15:58:57 +00:00
parent 709163c32e
commit 719f926a48
1 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/compiler/GF/Server.hs
View File

@@ -36,6 +36,7 @@ import System.Exit(ExitCode(..))
import Codec.Binary.UTF8.String(decodeString,encodeString) import Codec.Binary.UTF8.String(decodeString,encodeString)
import GF.Infra.UseIO(readBinaryFile,writeBinaryFile,ePutStrLn) import GF.Infra.UseIO(readBinaryFile,writeBinaryFile,ePutStrLn)
import GF.Infra.SIO(captureSIO) import GF.Infra.SIO(captureSIO)
import GF.Data.Utilities(apSnd,mapSnd)
import qualified PGFService as PS import qualified PGFService as PS
import qualified ExampleService as ES import qualified ExampleService as ES
import Data.Version(showVersion) import Data.Version(showVersion)
@@ -484,11 +485,5 @@ inputs = queryToArguments . fixplus
decode c = [c] 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 .= infix 1 .=
n .= v = (n,showJSON v) n .= v = (n,showJSON v)