From e41fd61bdeac8779fa24050cc0d44714f7c90f1d Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 29 Apr 2017 02:09:24 +0200 Subject: hlint configuration --- src/IWlib.hsc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/IWlib.hsc') diff --git a/src/IWlib.hsc b/src/IWlib.hsc index 5f7754d..b244510 100644 --- a/src/IWlib.hsc +++ b/src/IWlib.hsc @@ -56,7 +56,7 @@ getWirelessInfo iface = str <- c_iw_stats i istr stats rng 1 rgr <- c_iw_range i istr rng c_iw_close i - if (bcr < 0) then return WirelessInfo { wiEssid = "", wiQuality = 0 } else + if bcr < 0 then return WirelessInfo { wiEssid = "", wiQuality = 0 } else do hase <- (#peek struct wireless_config, has_essid) wc :: IO CInt eon <- (#peek struct wireless_config, essid_on) wc :: IO CInt essid <- if hase /= 0 && eon /= 0 then @@ -70,6 +70,6 @@ getWirelessInfo iface = return $ fromIntegral qualv / mxv else return 0 let qv = round (100 * (q :: Double)) - return $ WirelessInfo { wiEssid = essid, wiQuality = min 100 qv } + return WirelessInfo { wiEssid = essid, wiQuality = min 100 qv } where xqual p = let qp = (#ptr struct iw_param, value) p in (#peek struct iw_quality, qual) qp :: IO CChar -- cgit v1.2.3