Fix build
This commit is contained in:
parent
3cd7a246ab
commit
1953b152b4
@ -411,7 +411,7 @@ constructView mygui myview = do
|
|||||||
-- update model of view
|
-- update model of view
|
||||||
case view' of
|
case view' of
|
||||||
FMTreeView treeView -> do
|
FMTreeView treeView -> do
|
||||||
treeViewSetModel treeView sortedModel'
|
treeViewSetModel treeView (Just sortedModel')
|
||||||
treeViewSetRubberBanding treeView True
|
treeViewSetRubberBanding treeView True
|
||||||
FMIconView iconView -> do
|
FMIconView iconView -> do
|
||||||
iconViewSetModel iconView (Just sortedModel')
|
iconViewSetModel iconView (Just sortedModel')
|
||||||
|
Loading…
Reference in New Issue
Block a user