gtk2hs-commit

[Axel S. <si...@co...>]

Fri Apr 17 10:24:37 EDT 2009  Axel Simon <Axe...@en...>
  * Adapt demo to use new Exception module.

    hunk ./demo/treeList/DirList.hs 1
    +{-# OPTIONS -cpp #-}
    hunk ./demo/treeList/DirList.hs 8
    -import Control.Exception (handle)
    +import Control.Exception
    hunk ./demo/treeList/DirList.hs 28
    -    s <- handle (\_ -> return 0) $
    -           do h <- openFile f ReadMode
    +    s <- handle (\e ->
    +#if __GLASGOW_HASKELL__>=610
    +                 case e :: SomeException of
    +                   e ->
    +#endif
    +                        return 0) $ do
    +              h <- openFile f ReadMode