From 685d67d19d2e94fc94ed7334e5e7ab19454426d7 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 28 Mar 2022 23:27:45 -0600 Subject: Fix things that Hlint is complaining about. --- src/Internal/CornerLayout.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Internal/CornerLayout.hs') 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 -- cgit