hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

GTK: validate arguments to main program

Browse Source
This commit is contained in:
Julian Ospald 2015-12-26 22:48:20 +01:00
parent 400a0242d6
commit 35e6f5df82
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/GUI/Gtk.hs
View File

@ -218,9 +218,13 @@ startMainWindow startdir = do
"refreshView" "refreshView"
-- create initial list store model with unsorted data -- create initial list store model with unsorted data
-- we check that the startdir passed by the user is valid
-- TODO: maybe move this to a separate function
sd <- (\x -> if (failed . file $ x) || (not . isAbsolute . anchor $ x)
then Data.DirTree.readFile "/"
else return x) =<< Data.DirTree.readFile startdir
rawModel <- newTVarIO =<< listStoreNew rawModel <- newTVarIO =<< listStoreNew
=<< Data.DirTree.getContents =<< Data.DirTree.getContents sd
=<< Data.DirTree.readFile startdir
filteredModel <- newTVarIO =<< (\x -> treeModelFilterNew x []) filteredModel <- newTVarIO =<< (\x -> treeModelFilterNew x [])
=<< readTVarIO rawModel =<< readTVarIO rawModel