diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-03-28 23:27:45 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-03-28 23:27:45 -0600 |
| commit | 685d67d19d2e94fc94ed7334e5e7ab19454426d7 (patch) | |
| tree | a4df88d0c9d98d3ba7513bc6c679c80a96c112e0 /src/Internal/CornerLayout.hs | |
| parent | efe9e1a5f8474a865e2762d3a795dbe43763985b (diff) | |
| download | rde-685d67d19d2e94fc94ed7334e5e7ab19454426d7.tar.gz rde-685d67d19d2e94fc94ed7334e5e7ab19454426d7.tar.bz2 rde-685d67d19d2e94fc94ed7334e5e7ab19454426d7.zip | |
Fix things that Hlint is complaining about.
Diffstat (limited to 'src/Internal/CornerLayout.hs')
| -rw-r--r-- | src/Internal/CornerLayout.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Internal/CornerLayout.hs b/src/Internal/CornerLayout.hs index 10fbe5b..b3898fc 100644 --- a/src/Internal/CornerLayout.hs +++ b/src/Internal/CornerLayout.hs @@ -31,8 +31,8 @@ instance LayoutClass Corner a where zip ws $ map ( \(Rectangle x' y' w h) -> Rectangle (x + x') (y + y') w h) $ corner : - (splitVert vertRect vn) ++ - (splitHoriz horizRect hn) + splitVert vertRect vn ++ + splitHoriz horizRect hn pureMessage (Corner frac delta) m = fmap resize (fromMessage m) where |