suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update path-add-extension type with new optional argument (#519)

Browse Source
This commit is contained in:
Ben Greenman 2017-03-27 10:18:53 -04:00 committed by Sam Tobin-Hochstadt
parent f4aff224a8
commit 2804bd4a93
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
typed-racket-lib/typed-racket/base-env/base-env.rkt
View File

@ -2595,7 +2595,9 @@
[path-add-extension
(cl->*
(-> -Pathlike (Un -String -Bytes) -Path)
(-> -SomeSystemPathlike (Un -String -Bytes) -SomeSystemPath))]
(-> -Pathlike (Un -String -Bytes) (Un -String -Bytes) -Path)
(-> -SomeSystemPathlike (Un -String -Bytes) -SomeSystemPath)
(-> -SomeSystemPathlike (Un -String -Bytes) (Un -String -Bytes) -SomeSystemPath))]
[path-replace-suffix
(cl->*

2
typed-racket-test/succeed/somesystempath.rkt
View File

@ -15,6 +15,8 @@
(filename-extension p)
(path-only long-path)
(some-system-path->string long-path)
(path-add-extension p ".bak")
(path-add-extension p ".bak" ".")
))