Skip to content

Commit

Permalink
Update version; And fix regex
Browse files Browse the repository at this point in the history
  • Loading branch information
KikyTokamuro committed Mar 24, 2023
1 parent 2234ba0 commit 145e48b
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions fetch.scm
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@

;; MIT License

;; Copyright (c) 2021-2022 Kiky Tokamuro (Daniil Archangelsky) <[email protected]>
;; Copyright (c) 2021-2023 Kiky Tokamuro (Daniil Archangelsky) <[email protected]>

;; Permission is hereby granted, free of charge, to any person obtaining a copy
;; of this software and associated documentation files (the "Software"), to deal
Expand Down Expand Up @@ -95,7 +95,7 @@
(define (os-release-name)
"Return ID from os-release file"
(let ((os (with-input-from-file "/etc/os-release" read-string)))
(match:substring (string-match "PRETTY_NAME=\"([A-Za-z0-9. ]+)\"" os) 1)))
(match:substring (string-match "PRETTY_NAME=\"([A-Za-z0-9(). ]+)\"" os) 1)))

(define (get-distro)
"Return distro name"
Expand Down Expand Up @@ -154,7 +154,7 @@ fetch.scm [options]
-v, --version Display version
-h, --help Display this help")

(define version-message "fetch.scm v0.1.5")
(define version-message "fetch.scm v0.1.6")

(define (main args)
(let* ((option-spec '((version (single-char #\v) (value #f))
Expand Down

0 comments on commit 145e48b

Please sign in to comment.