From 430f163014b6a53cd87863df490ae34497d7aa9a Mon Sep 17 00:00:00 2001 From: David Roundy Date: Thu, 14 Jun 2007 16:07:09 +0200 Subject: make workspace tag not need to be a Num. This change also removes the barely used 'size' field, and replaces it with a tagMember predicate. The idea is to move towards the ability to make the workspace tag be a String, which by default might be "1".."9", but could also be customized to be something meaningful to the user. darcs-hash:20070614140709-72aca-dbc1ce07bf964e4cff69deef95b453a0051ef782 --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index bf1402f..3271b2c 100644 --- a/Main.hs +++ b/Main.hs @@ -52,7 +52,7 @@ main = do let winset | ("--resume" : s : _) <- args , [(x, "")] <- reads s = x - | otherwise = new (fromIntegral workspaces) (fromIntegral $ length xinesc) + | otherwise = new [0..fromIntegral workspaces-1] (fromIntegral $ length xinesc) safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x,xs) cf = XConf -- cgit v1.2.3