Skip to content

Commit 9bc5448

Browse files
committed
delete pasted tabs
1 parent 7bec950 commit 9bc5448

File tree

1 file changed

+15
-15
lines changed

1 file changed

+15
-15
lines changed

src/fpm.f90

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -505,21 +505,21 @@ end subroutine cmd_run
505505

506506
subroutine cmd_clean(settings)
507507
class(fpm_clean_settings), intent(in) :: settings
508-
character(len=1) :: response
509-
if (is_dir("build")) then
510-
write(stdout, '(A)', advance='no') "Delete the build directory (y/n)? "
511-
read(stdin, '(A1)') response
512-
if (lower(response) == 'y') then
513-
if(settings%unix) then
514-
call run('rm -rf build', .false.)
515-
else
516-
call run('rmdir /s/q build', .false.)
517-
end if
518-
else
519-
write (stdout, '(A)') "fpm: The response was not affirmative, build directory was not deleted."
520-
end if
521-
else
522-
write (stdout, '(A)') "fpm: No build directory found."
508+
character(len=1) :: response
509+
if (is_dir("build")) then
510+
write(stdout, '(A)', advance='no') "Delete the build directory (y/n)? "
511+
read(stdin, '(A1)') response
512+
if (lower(response) == 'y') then
513+
if(settings%unix) then
514+
call run('rm -rf build', .false.)
515+
else
516+
call run('rmdir /s/q build', .false.)
517+
end if
518+
else
519+
write (stdout, '(A)') "fpm: The response was not affirmative, build directory was not deleted."
520+
end if
521+
else
522+
write (stdout, '(A)') "fpm: No build directory found."
523523
end if
524524
end subroutine cmd_clean
525525

0 commit comments

Comments
 (0)