diff options
| author | Don Stewart <dons@galois.com> | 2007-10-14 01:21:50 +0200 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2007-10-14 01:21:50 +0200 |
| commit | 255a98e39040a0d81e25200c7cc0a3cfbc9f5ea6 (patch) | |
| tree | c19cd31940cd8a98fe95d63fcfaa5cc15efd316f /Operations.hs | |
| parent | bc2e4703da3015adf18ca06af2b98b90ddbef150 (diff) | |
| download | xmonad-255a98e39040a0d81e25200c7cc0a3cfbc9f5ea6.tar.gz xmonad-255a98e39040a0d81e25200c7cc0a3cfbc9f5ea6.tar.xz xmonad-255a98e39040a0d81e25200c7cc0a3cfbc9f5ea6.zip | |
document, and use better names, for serialising/existential-dispatch framework
darcs-hash:20071013232150-cba2c-dc3ee2254f4ebdb5d0099ec0a38c5665f1ad4d3f.gz
Diffstat (limited to '')
| -rw-r--r-- | Operations.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Operations.hs b/Operations.hs index 0edfbb9..5b3bb2d 100644 --- a/Operations.hs +++ b/Operations.hs @@ -369,10 +369,10 @@ data ChangeLayout = NextLayout | PrevLayout | JumpToLayout String instance Message ChangeLayout instance ReadableLayout Window where - defaults = Layout (Select []) : - Layout Full : Layout (Tall 1 0.1 0.5) : - Layout (Mirror $ Tall 1 0.1 0.5) : - serialisedLayouts + readTypes = Layout (Select []) : + Layout Full : Layout (Tall 1 0.1 0.5) : + Layout (Mirror $ Tall 1 0.1 0.5) : + serialisedLayouts data Select a = Select [Layout a] deriving (Show, Read) |