Hi all.

When i test below sentence:

        putStrLn $ "Permissions: " ++ (show (fromMaybe [] 
(VFS.fileInfoPermissions x)))
        
I got error: 

        Manatee: gnomevfs/System/Gnome/VFS/Constants.hsc:(94,4)-(109,39): 
Non-exhaustive
        patterns in function toEnum

I recompile gtk2hs source code after add 

  toEnum n = error ("unknown GnomeVFSFilePermissions value " ++ show n)
  
  after
  
  toEnum #{const GNOME_VFS_PERM_ACCESS_EXECUTABLE} = PermAccessExecutable

Then run 
  putStrLn $ "Permissions: " ++ (show (fromMaybe [] (fileInfoPermissions fi)))
  
I got:
  Manatee: unknown GnomeVFSFilePermissions value 2049
  
I think 2049 is missed match constant for type FilePermissions.

Hope maintainer fix this bug.

Thanks!

  -- Andy


------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
trial. Simplify your report design, integration and deployment - and focus on 
what you do best, core application coding. Discover what's new with 
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
Gtk2hs-devel mailing list
Gtk2hs-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gtk2hs-devel

Reply via email to