Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
b070a681
Commit
b070a681
authored
Mar 10, 2020
by
Eric Timmons
Browse files
Fix syncing systems with slashes in the name
parent
a77f4e22
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/clpm/deploy.lisp
View file @
b070a681
...
...
@@ -8,6 +8,7 @@
#:clpm/client
#:clpm/deps
)
(
:import-from
#:deploy
)
(
:import-from
#:puri
)
#+
clpm-winhttp
(
:import-from
#:winhttp
#:winhttp
)
...
...
@@ -24,6 +25,12 @@
(
deploy:define-library
winhttp
:dont-deploy
t
)
(
uiop:register-image-restore-hook
(
lambda
()
;; Fix PURI's URL encoding to always use uppercase letters:
(
setf
puri::*escaped-encoding*
(
vector
#\0
#\1
#\2
#\3
#\4
#\5
#\6
#\7
#\8
#\9
#\A
#\B
#\C
#\D
#\E
#\F
))))
(
uiop:register-image-restore-hook
(
lambda
()
;; Silence Deploy
...
...
src/clpm/sources/clpi.lisp
View file @
b070a681
...
...
@@ -200,7 +200,7 @@
(
with-forms-from-stream
(
s
form
)
(
destructuring-bind
(
system-name
&rest
args
)
form
(
declare
(
ignore
args
))
(
let
((
url
(
puri:merge-uris
(
uiop:strcat
"systems/"
system-name
"/releases"
)
(
let
((
url
(
puri:merge-uris
(
uiop:strcat
"systems/"
(
urlencode
(
urlencode
system-name
))
"/releases"
)
base-url
))
(
pn
(
merge-pathnames
"releases"
(
ff-source-repo-system-pathname
source
system-name
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment