diff options
| author | hallgren <hallgren@chalmers.se> | 2016-06-09 11:27:57 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2016-06-09 11:27:57 +0000 |
| commit | 617624e2a81ec00dd5484a7e0ee7ca8f21a3ffff (patch) | |
| tree | 0d5d9230fef105f1df5de2caa282908763005710 /src | |
| parent | 60e07c302e5b8cb81993cd82e0ba7df2a1016a89 (diff) | |
PGFService: eleminate warning "Defined but not used: ‘serverError’"
Diffstat (limited to 'src')
| -rw-r--r-- | src/server/PGFService.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index 44f0b7e14..1f75a8904 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -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)] |