Fix build

This commit is contained in:
2018-05-19 11:41:51 +02:00
parent 3cd7a246ab
commit 1953b152b4

View File

@@ -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')