From 986691486083604be51bb57f7404609841444a7e Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 25 Sep 2007 23:17:08 +0200
Subject: Simplify readLayout, comment on surprising behavior

darcs-hash:20070925211708-a5988-f814e1824247a7eb8b806811ea8cb7c73662e53f.gz
---
 XMonad.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index 0d66d25..6e7cdd4 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -144,9 +144,9 @@ instance Show (SomeLayout a) where
     show (SomeLayout l) = show l
 
 readLayout :: [SomeLayout a] -> String -> [(SomeLayout a, String)]
-readLayout ls s = case concatMap rl ls of
-                  (x:_) -> [x]
-                  [] -> []
+readLayout ls s = take 1 $ concatMap rl ls
+               -- 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
           rl' :: Layout l a => l a -> [(l a,String)]
           rl' _ = reads s
-- 
cgit v1.2.3