Polished source code
This commit is contained in:
parent
0f8b6f00d4
commit
57fcb66c4d
1 changed files with 1 additions and 1 deletions
|
@ -418,7 +418,7 @@ ls path = Shell (\(FoldM step begin done) -> do
|
|||
-}
|
||||
deslash :: String -> String
|
||||
deslash [] = []
|
||||
deslash (c:cs) = c:go cs
|
||||
deslash (c0:cs0) = c0:go cs0
|
||||
where
|
||||
go [] = []
|
||||
go ['\\'] = []
|
||||
|
|
Loading…
Reference in a new issue