aboutsummaryrefslogtreecommitdiff
path: root/captain
diff options
context:
space:
mode:
Diffstat (limited to 'captain')
-rw-r--r--captain/requtils.f906
1 files changed, 2 insertions, 4 deletions
diff --git a/captain/requtils.f90 b/captain/requtils.f90
index df365ff..a0c42c7 100644
--- a/captain/requtils.f90
+++ b/captain/requtils.f90
@@ -36,9 +36,8 @@ implicit none
contains
pure function success_code(req)
- use gemini_protocol, only: GEMINI_SUCCESS => STATUS_SUCCESS
use http, only: HTTP_SUCCESS => HTTP_CODE_SUCCESS
- use server_response, only: request
+ use server_response, only: request, GEMINI_SUCCESS => GEMINI_CODE_SUCCESS
implicit none
class(request), intent(in)::req
@@ -53,9 +52,8 @@ contains
end function success_code
pure function notfound_code(req)
- use gemini_protocol, only: GEMINI_FAIL => STATUS_PERMFAIL
use http, only: HTTP_FAIL => HTTP_CODE_NOTFOUND
- use server_response, only: request
+ use server_response, only: request, GEMINI_FAIL => GEMINI_CODE_PERMFAIL
implicit none
class(request), intent(in)::req