twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix GHC warning: -Wtype-defaults

Browse Source 
Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe
2021-05-20 16:52:58 +02:00
parent 6b014e6025
commit 25ad725e0c
4 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/BinaryColumn.hs
View File

@@ -86,7 +86,7 @@ columnLayout (BinaryColumn scale min_size) rect stack = zip ws rects
m_fl = fromIntegral m
m_prev_fl = fromIntegral (m + 1)
div_test = min divide m_prev_fl
value_test = (toInteger (round ((fromIntegral size) / div_test)))
value_test = round ((fromIntegral size) / div_test) :: Integer
value_max = size - toInteger (min_size * m)
(value, divide_next, no_room) =
if value_test < value_max then
@@ -102,7 +102,7 @@ columnLayout (BinaryColumn scale min_size) rect stack = zip ws rects
f m size divide True = let
divide_next = fromIntegral m
value_even = ((fromIntegral size) / divide)
value = (toInteger (round value_even))
value = round value_even :: Integer
m_next = m - 1
size_next = size - value