Pagwin/psb
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

handled leading slash

Browse source
This commit is contained in:
Pagwin 2026-02-23 21:59:20 -05:00
parent c447aab1b9
commit 4eaa44b4f1
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Utilities/FilePath.hs
View file

@ -31,7 +31,7 @@ res_path_handle :: String -> T.Text
res_path_handle = T.pack . yeetTop res_path_handle = T.pack . yeetTop
yeetTop :: FilePath -> FilePath yeetTop :: FilePath -> FilePath
yeetTop path = new_dir </> filename yeetTop path = '/' : new_dir </> filename
where where
new_dir = concat $ drop 1 $ FP.splitPath $ FP.takeDirectory path new_dir = concat $ drop 1 $ FP.splitPath $ FP.takeDirectory path
filename = FP.takeFileName path filename = FP.takeFileName path