Polished source code

This commit is contained in:
Gabriel Gonzalez 2015-03-08 17:45:44 -07:00
parent 0f8b6f00d4
commit 57fcb66c4d

View file

@ -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 ['\\'] = []