GUI: minor cleanup
This commit is contained in:
parent
d4a5460128
commit
94095ec28b
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user