Commit d5314f3a by Guerric Chupin

Hlint suggestions.

parent b7e8cf91
......@@ -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
......
......@@ -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
......
{-# LANGUAGE Arrows, TupleSections #-}
{-# LANGUAGE TupleSections #-}
module RMCA.Layer.LayerConf where
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment