diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-20 10:53:59 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-20 10:53:59 -0400 |
commit | 09e05b225bbea43d77ee1edfb896e5cdef43c145 (patch) | |
tree | c002b33ae0dfa6669d73f9316408a113de96c36c /captain/response.f90 | |
parent | 6e4ef96cb49b02ab3f2a9b8bc17dbacc6001c002 (diff) | |
download | levitating-09e05b225bbea43d77ee1edfb896e5cdef43c145.tar.gz levitating-09e05b225bbea43d77ee1edfb896e5cdef43c145.zip |
Added ability to extend templates if desired. Used in Home and About links.
Diffstat (limited to 'captain/response.f90')
-rw-r--r-- | captain/response.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/captain/response.f90 b/captain/response.f90 index 748dd39..e743d0d 100644 --- a/captain/response.f90 +++ b/captain/response.f90 @@ -396,6 +396,7 @@ contains end subroutine request_destroy subroutine response_destroy(resp) + use utilities, only: delete_file implicit none class(response)::resp @@ -410,7 +411,7 @@ contains if(associated(resp%body_filename)) then if(resp%temporary_file) then - call unlink(resp%body_filename) + call delete_file(resp%body_filename) end if deallocate(resp%body_filename) end if |