GUI: minor cleanup

This commit is contained in:
Julian Ospald 2015-12-18 04:22:21 +01:00
parent d4a5460128
commit 94095ec28b
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020

View File

@ -142,8 +142,8 @@ data MyView = MkMyView {
, filteredModel :: TVar (TypedTreeModelFilter DTInfoZipper)
, fsState :: TVar DTInfoZipper
, operationBuffer :: TVar (Either
(DTInfoZipper -> FileOperation DirTreeInfo DirTreeInfo)
(FileOperation DirTreeInfo DirTreeInfo))
(DTInfoZipper -> FileOperation)
FileOperation)
}
@ -181,7 +181,7 @@ setCallbacks mygui myview = do
return ()
-- |Go the the url given at the `urlBar` and visualize it in the given
-- |Go to the url given at the `urlBar` and visualize it in the given
-- treeView.
--
-- This might update the TVar `rawModel`.
@ -255,11 +255,7 @@ del row mygui myview = case row of
-- |Supposed to be used with `withRow`. Initializes a file copy operation.
copyInit :: DTInfoZipper -> MyGUI -> MyView -> IO ()
copyInit row mygui myview = case row of
dz@(File {}, _) -> do
print "blah1"
writeTVarIO (operationBuffer myview) (Left $ FCopy dz)
return ()
_ -> return ()
dz -> writeTVarIO (operationBuffer myview) (Left $ FCopy dz)
-- |Finalizes a file copy operation.