diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-29 21:13:20 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-29 21:13:20 +0200 |
| commit | 7480c366f6c40b792fff9832988622820790324c (patch) | |
| tree | aa82cc6934a3858d2e622435850eb7a2f3c41b07 /Config.hs | |
| parent | b34105b0eca9234f5e411d51c179a8d3572b0853 (diff) | |
| download | xmonad-7480c366f6c40b792fff9832988622820790324c.tar.gz xmonad-7480c366f6c40b792fff9832988622820790324c.tar.xz xmonad-7480c366f6c40b792fff9832988622820790324c.zip | |
some renaming of classes and data types.
darcs-hash:20070929191320-72aca-63c25731f6efb2de0d786c7ebe2fed2fa288e03a.gz
Diffstat (limited to '')
| -rw-r--r-- | Config.hs | 16 | ||||
| -rw-r--r-- | Config.hs-boot | 2 |
2 files changed, 9 insertions, 9 deletions
@@ -107,7 +107,7 @@ borderWidth = 1 -- | -- A list of layouts which, in addition to the defaultLayouts, xmonad can -- deserialize. -possibleLayouts :: [SomeLayout Window] +possibleLayouts :: [Layout Window] possibleLayouts = [defaultLayout -- Extension-provided layouts ] ++ defaultLayouts @@ -115,13 +115,13 @@ possibleLayouts = [defaultLayout -- | -- The default tiling algorithm -- -defaultLayout :: SomeLayout Window -defaultLayout = SomeLayout $ LayoutSelection defaultLayouts +defaultLayout :: Layout Window +defaultLayout = Layout $ LayoutSelection defaultLayouts -defaultLayouts :: [SomeLayout Window] -defaultLayouts = [ SomeLayout tiled - , SomeLayout $ Mirror tiled - , SomeLayout Full +defaultLayouts :: [Layout Window] +defaultLayouts = [ Layout tiled + , Layout $ Mirror tiled + , Layout Full -- Extension-provided layouts ] @@ -141,7 +141,7 @@ defaultLayouts = [ SomeLayout tiled -- | -- A list of layouts which, in addition to the defaultLayouts, xmonad can -- deserialize. -otherPossibleLayouts :: [SomeLayout Window] +otherPossibleLayouts :: [Layout Window] otherPossibleLayouts = [] -- | diff --git a/Config.hs-boot b/Config.hs-boot index f9d8ecd..d216fbc 100644 --- a/Config.hs-boot +++ b/Config.hs-boot @@ -7,5 +7,5 @@ borderWidth :: Dimension logHook :: X () numlockMask :: KeyMask workspaces :: [WorkspaceId] -possibleLayouts :: [SomeLayout Window] +possibleLayouts :: [Layout Window] manageHook :: Window -> (String, String, String) -> X (WindowSet -> WindowSet) |