tildetown
/
nicethings
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed a few little use case thingers. very specific. i know

cleanup
m455 2020-06-15 15:21:19 -04:00
parent 3e7562c196
commit c1da55989b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/nicethings.rkt
View File

@ -78,8 +78,7 @@
(define (repair/fix-permissions) (define (repair/fix-permissions)
(file-or-directory-permissions nicethings-path 420) (file-or-directory-permissions nicethings-path 420)
(displayln-format (messages-ref 'permissions-fixed) nicethings-path) (displayln-format (messages-ref 'permissions-fixed) nicethings-path))
) ;; TEST
(define (repair/wrong-permissions) (define (repair/wrong-permissions)
(display (messages-ref 'wrong-permissions-prompt)) (display (messages-ref 'wrong-permissions-prompt))
@ -92,8 +91,7 @@
(define (repair/create-file) (define (repair/create-file)
(close-output-port (open-output-file nicethings-path)) (close-output-port (open-output-file nicethings-path))
(file-or-directory-permissions nicethings-path 420) (file-or-directory-permissions nicethings-path 420)
(displayln-format (messages-ref 'file-created) nicethings-path) (displayln-format (messages-ref 'file-created) nicethings-path))
) ;; TEST
(define (repair/not-found) (define (repair/not-found)
(display (messages-ref 'not-found-prompt)) (display (messages-ref 'not-found-prompt))