msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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 52912d39e6
commit e952e10f33
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 showTree = show
toATree = cToATree toATree = cToATree
#else
serverError = throw 500
#endif #endif
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
@@ -522,7 +526,6 @@ errorMissingId = badRequest "Missing identifier" ""
notFound = throw 404 "Not found" notFound = throw 404 "Not found"
badRequest = throw 400 badRequest = throw 400
serverError = throw 500
throw code msg extra = throw code msg extra =
throwCGIError code msg [msg ++(if null extra then "" else ": "++extra)] throwCGIError code msg [msg ++(if null extra then "" else ": "++extra)]