Fix build

This commit is contained in:
Julian Ospald 2018-05-19 11:41:51 +02:00
parent 3cd7a246ab
commit 1953b152b4
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 1 deletions

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