Hlint suggestions.

diff --git a/src/RMCA/GUI/Buttons.hs b/src/RMCA/GUI/Buttons.hs
index 2f1db38f85a5f16265f82686fcdea4a8f36d9a65..9c112b2b49226f7c2ec4f9116deaff13089574b7 100644 (file)
--- a/src/RMCA/GUI/Buttons.hs
+++ b/src/RMCA/GUI/Buttons.hs
@@ -55,7 +55,7 @@ getButtons :: (ReactiveValueRead boardStatus RunStatus IO) =>
 getButtons boardStatusRV = do
   --addRestartButton
   restartM <- stockLookupItem gtkMediaRestart
-  when (isJust restartM) $ do
+  when (isJust restartM) $
     stockAddItem [(fromJust restartM) { siLabel = "_Restart" }]
   buttonBox <- vBoxNew False 5
 
@@ -89,8 +89,8 @@ getButtons boardStatusRV = do
   reactiveValueWrite playStockId gtkMediaPlay
   reactiveValueOnCanRead boardStatusRV $ reactiveValueRead boardStatusRV >>=
     \case
-      Stopped -> reactiveValueWrite playStockId $ gtkMediaPlay
-      Running -> reactiveValueWrite playStockId $ gtkMediaRestart
+      Stopped -> reactiveValueWrite playStockId gtkMediaPlay
+      Running -> reactiveValueWrite playStockId gtkMediaRestart
   boxPackStart buttonBoxBot buttonPlay PackRepel 0
 
   buttonPause <- toggleButtonNewFromStock gtkMediaPause

diff --git a/src/RMCA/Layer/Board.hs b/src/RMCA/Layer/Board.hs
index ab5fc3d497086c42dd9f80ec1c24442c92fe66b6..20258fe441f6f6b6f2e969861e1c0a2ad1ae9f57 100644 (file)
--- a/src/RMCA/Layer/Board.hs
+++ b/src/RMCA/Layer/Board.hs
@@ -67,7 +67,7 @@ layer = layerStopped
               ers'' = ers' `lMerge` (r `tag` Running)
           ophs <- iPre iphs -< phs
           let ophs' = if keepHeads dlc then ophs else []
-          e <- notYet -< fmap (\rs -> (rs, slc', ophs' ++ startHeads b)) (ers'')
+          e <- notYet -< fmap (\rs -> (rs, slc', ophs' ++ startHeads b)) ers''
           returnA -< (enphs,e)
 
 layers :: M.IntMap a

diff --git a/src/RMCA/Layer/LayerConf.hs b/src/RMCA/Layer/LayerConf.hs
index 4a3c17d3325d428a53e9b1378931ee9673762653..584f6f6db46134b8d1e6325f9bcf77b211cf54f3 100644 (file)
--- a/src/RMCA/Layer/LayerConf.hs
+++ b/src/RMCA/Layer/LayerConf.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE Arrows, TupleSections #-}
+{-# LANGUAGE TupleSections #-}
 
 module RMCA.Layer.LayerConf where