Clean hlint and cabal warnings

src/HomeAssistant/Controller/Ruuvi.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Arrows #-}
 {-# LANGUAGE OverloadedStrings #-}
 module HomeAssistant.Controller.Ruuvi
   ( Ruuvi(..)

src/HomeAssistant/Runtime/Connection.hs

@@ -36,10 +36,9 @@ import Data.UUID (toText)
 import AFRP (Request(..), Event(..))
 import Control.Monad.IO.Class (liftIO, MonadIO)
 import HomeAssistant.Runtime.RateLimit (RateLimited, RateLimiter, runRateLimited)
-import Control.Monad.Catch (MonadCatch)
 import GHC.Stack (HasCallStack)
 import UnliftIO (MonadUnliftIO, race, withRunInIO)
-import Control.Monad.Catch (onException)
+import Control.Monad.Catch (MonadCatch, onException)
 
 -- | Connect, authenticate, subscribe, then receive and broadcast forever.
 -- Restarting this action reconnects. All setup sends happen before the

src/HomeAssistant/Runtime/Flags.hs

@@ -44,7 +44,7 @@ loadFlags rootPath allNames = do
   let path = rootPath </> "handlers.json"
   fileMap <- readFlagsFile path
   let defaults = M.fromList [(n, True) | n <- allNames]
-      initial = M.unionWith (\fileVal -> const fileVal) fileMap defaults
+      initial = M.unionWith const fileMap defaults
   tv <- liftIO $ newTVarIO initial
   lock <- liftIO $ newMVar ()
   pure Flags

src/HomeAssistant/Runtime/Graphing.hs

@@ -190,10 +190,10 @@ cfName = \case
 
 defArgs :: FilePath -> Series -> [String]
 defArgs rrdPath series =
-  [ "DEF:" ++ rawF ++ "=" ++ rrdPath ++ ":"
+  ( "DEF:" ++ rawF ++ "=" ++ rrdPath ++ ":"
       ++ srcDs source ++ ":" ++ cfName (srcCF source)
-  ]
-    ++ transformArgs
+  )
+    : transformArgs
   where
     source = serSource series
     alias = serAlias series