hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

GTK: remove obsolete void usage

Browse Source
This commit is contained in:
Julian Ospald 2016-04-20 00:39:53 +02:00
parent 680a75f5be
commit 9d572c8a6e
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/HSFM/GUI/Gtk/MyView.hs
View File

@ -39,10 +39,6 @@ import Control.Exception
try try
, SomeException , SomeException
) )
import Control.Monad
(
void
)
import Data.Foldable import Data.Foldable
( (
for_ for_
@ -135,7 +131,7 @@ switchView mygui myview iofmv = do
containerAdd (scroll mygui) nview containerAdd (scroll mygui) nview
widgetShow nview widgetShow nview
void $ refreshView mygui myview Nothing refreshView mygui myview Nothing
-- |Createss an IconView. -- |Createss an IconView.
@ -360,7 +356,7 @@ constructView mygui myview = do
newi newi
[Move, MoveIn, MoveOut, MoveSelf, Create, Delete, DeleteSelf] [Move, MoveIn, MoveOut, MoveSelf, Create, Delete, DeleteSelf]
(P.fromAbs cdirp) (P.fromAbs cdirp)
(\_ -> postGUIAsync $ void $refreshView mygui myview (Just $ cdirp)) (\_ -> postGUIAsync $ refreshView mygui myview (Just $ cdirp))
putMVar (inotify myview) newi putMVar (inotify myview) newi
return () return ()