twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-17 04:43:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Simplify readLayout, comment on surprising behavior

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-25 21:17:08 +00:00
parent 68c72b34e1
commit 9c78ba538b
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad.hs
View File

@@ -144,9 +144,9 @@ instance Show (SomeLayout a) where
show (SomeLayout l) = show l show (SomeLayout l) = show l
readLayout :: [SomeLayout a] -> String -> [(SomeLayout a, String)] readLayout :: [SomeLayout a] -> String -> [(SomeLayout a, String)]
readLayout ls s = case concatMap rl ls of readLayout ls s = take 1 $ concatMap rl ls
(x:_) -> [x] -- We take the first parse only, because multiple matches
[] -> [] -- indicate a bad parse.
where rl (SomeLayout x) = map (\(l,s') -> (SomeLayout l,s')) $ rl' x where rl (SomeLayout x) = map (\(l,s') -> (SomeLayout l,s')) $ rl' x
rl' :: Layout l a => l a -> [(l a,String)] rl' :: Layout l a => l a -> [(l a,String)]
rl' _ = reads s rl' _ = reads s