twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use drop 1 instead of reimplementing it in terms of tail

Browse Source
This commit is contained in:
Joseph C. Sible
2019-12-14 23:43:31 -05:00
committed by GitHub
parent 52f8c82504
commit 5860864e45
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Prompt/Shell.hs
View File

@@ -126,11 +126,9 @@ getCommands = do
split :: Eq a => a -> [a] -> [[a]] split :: Eq a => a -> [a] -> [[a]]
split _ [] = [] split _ [] = []
split e l = split e l =
f : split e (rest ls) f : split e (drop 1 ls)
where where
(f,ls) = span (/=e) l (f,ls) = span (/=e) l
rest s | s == [] = []
| otherwise = tail s
escape :: String -> String escape :: String -> String
escape [] = "" escape [] = ""