diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-26 21:09:00 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-26 21:09:00 +0200 |
| commit | 7027d8fd47272a49d69c2c99cf9db960709aa766 (patch) | |
| tree | 787164f2168a0f85ed06624aa279eae988986b42 | |
| parent | 23cfb9803e9a93e0de90e2acceb21c436ca612ab (diff) | |
| download | XMonadContrib-7027d8fd47272a49d69c2c99cf9db960709aa766.tar.gz XMonadContrib-7027d8fd47272a49d69c2c99cf9db960709aa766.tar.xz XMonadContrib-7027d8fd47272a49d69c2c99cf9db960709aa766.zip | |
make DragPane a bit more succinct.
darcs-hash:20070926190900-72aca-66f45285589395b02517f95da25e9bca687d0a62.gz
| -rw-r--r-- | DragPane.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/DragPane.hs b/DragPane.hs index 20d42e8..332947f 100644 --- a/DragPane.hs +++ b/DragPane.hs @@ -59,10 +59,8 @@ data DragPane a = data DragType = Horizontal | Vertical deriving ( Show, Read ) instance Layout DragPane Window where - doLayout d@(DragPane _ ty _ _) = - case ty of - Vertical -> doLay id d - Horizontal -> doLay mirrorRect d + doLayout d@(DragPane _ Vertical _ _) = doLay id d + doLayout d@(DragPane _ Horizontal _ _) = doLay mirrorRect d handleMessage = handleMess data SetFrac = SetFrac Int Double deriving ( Show, Read, Eq, Typeable ) |