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

PGFService: eleminate warning "Defined but not used: ‘serverError’"

Browse Source
This commit is contained in:
hallgren
2016-06-09 11:27:57 +00:00
parent 60e07c302e
commit 617624e2a8
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/server/PGFService.hs
View File

@@ -312,6 +312,10 @@ instance ToATree C.Expr where
showTree = show
toATree = cToATree
#else
serverError = throw 500
#endif
--------------------------------------------------------------------------------
@@ -522,7 +526,6 @@ errorMissingId = badRequest "Missing identifier" ""
notFound = throw 404 "Not found"
badRequest = throw 400
serverError = throw 500
throw code msg extra =
throwCGIError code msg [msg ++(if null extra then "" else ": "++extra)]