diff options
author | Daniel Firth <locallycompact@gmail.com> | 2018-06-29 14:21:26 +0100 |
---|---|---|
committer | Daniel Firth <locallycompact@gmail.com> | 2018-07-04 09:50:16 +0100 |
commit | 1107dd6c6267222f325cd1965cac9425842910bc (patch) | |
tree | 95b6674f5424c6f21269a521717a646f2b8eb73a | |
parent | 988ef4bb139012c9186122d3d7ecbce128c78cce (diff) |
Fix hlint errors in Canvas.hs
-rw-r--r-- | Bustle/UI/Canvas.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Bustle/UI/Canvas.hs b/Bustle/UI/Canvas.hs index 806bc07..51d69f4 100644 --- a/Bustle/UI/Canvas.hs +++ b/Bustle/UI/Canvas.hs @@ -281,8 +281,7 @@ canvasDraw canvas = do canvasFocus :: Canvas a -> IO () -canvasFocus canvas = do - (canvasLayout canvas) `set` [ widgetIsFocus := True ] +canvasFocus canvas = canvasLayout canvas `set` [ widgetIsFocus := True ] canvasScrollToBottom :: Canvas a -> IO () |