GUI: minor cleanup
This commit is contained in:
parent
d4a5460128
commit
94095ec28b
@ -142,8 +142,8 @@ data MyView = MkMyView {
|
|||||||
, filteredModel :: TVar (TypedTreeModelFilter DTInfoZipper)
|
, filteredModel :: TVar (TypedTreeModelFilter DTInfoZipper)
|
||||||
, fsState :: TVar DTInfoZipper
|
, fsState :: TVar DTInfoZipper
|
||||||
, operationBuffer :: TVar (Either
|
, operationBuffer :: TVar (Either
|
||||||
(DTInfoZipper -> FileOperation DirTreeInfo DirTreeInfo)
|
(DTInfoZipper -> FileOperation)
|
||||||
(FileOperation DirTreeInfo DirTreeInfo))
|
FileOperation)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -181,7 +181,7 @@ setCallbacks mygui myview = do
|
|||||||
return ()
|
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.
|
-- treeView.
|
||||||
--
|
--
|
||||||
-- This might update the TVar `rawModel`.
|
-- 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.
|
-- |Supposed to be used with `withRow`. Initializes a file copy operation.
|
||||||
copyInit :: DTInfoZipper -> MyGUI -> MyView -> IO ()
|
copyInit :: DTInfoZipper -> MyGUI -> MyView -> IO ()
|
||||||
copyInit row mygui myview = case row of
|
copyInit row mygui myview = case row of
|
||||||
dz@(File {}, _) -> do
|
dz -> writeTVarIO (operationBuffer myview) (Left $ FCopy dz)
|
||||||
print "blah1"
|
|
||||||
writeTVarIO (operationBuffer myview) (Left $ FCopy dz)
|
|
||||||
return ()
|
|
||||||
_ -> return ()
|
|
||||||
|
|
||||||
|
|
||||||
-- |Finalizes a file copy operation.
|
-- |Finalizes a file copy operation.
|
||||||
|
Loading…
Reference in New Issue
Block a user