leksah 0.1 → 0.1.1

raw patch · 3 files changed

+17/−12 lines, 3 files

Files

• leksah.cabal +2/−2
• src/IDE/Menu.hs +13/−9
• src/IDE/Metainfo/SourceCollector.hs +2/−1

@@ -1,5 +1,5 @@ name: leksah-version: 0.1+version: 0.1.1 cabal-version: >= 1.2 build-type: Custom license: GPL@@ -9,7 +9,7 @@ stability: provisional homepage: package-url:   http://code.haskell.org/leksah-synopsis: Genuine Haskell Face+synopsis: Haskell IDE written in Haskell description: An Integrated Development Environment for Haskell written in Haskell. category: Development author: Jutaro (Juergen Nicklisch-Franken)

@@ -30,6 +30,8 @@ import Control.Monad.Reader import System.FilePath import Data.Version+import Prelude hiding (catch)+import Control.Exception  import IDE.Core.State import IDE.SourceEditor@@ -333,15 +335,17 @@     return hb  newIcons :: IO ()-newIcons = do-    iconFactory <- iconFactoryNew-    dataDir <- getDataDir-    mapM_ (loadIcon dataDir iconFactory) ["ide_class","ide_configure","ide_data","ide_error_next",-        "ide_error_prev","ide_field","ide_function","ide_instance", "ide_konstructor","ide_make",-        "ide_method","ide_newtype","ide_no_source","ide_other","ide_rule","ide_run","ide_slot",-        "ide_source","ide_type","leksah"-        ]-    iconFactoryAddDefault iconFactory+newIcons = +    catch (do+        iconFactory <- iconFactoryNew+        dataDir <- getDataDir+        mapM_ (loadIcon dataDir iconFactory) ["ide_class","ide_configure","ide_data","ide_error_next",+            "ide_error_prev","ide_field","ide_function","ide_instance", "ide_konstructor","ide_make",+            "ide_method","ide_newtype","ide_no_source","ide_other","ide_rule","ide_run","ide_slot",+            "ide_source","ide_type","leksah"+            ]+        iconFactoryAddDefault iconFactory)+    (\e -> throwIDE "Can't load icons")      where     loadIcon dataDir iconFactory name = do         pb      <-  pixbufNewFromFile $ dataDir </> "data" </> (name ++ ".png")

@@ -481,7 +481,8 @@ printHsDoc (DocCodeBlock doc)           =   printHsDoc doc printHsDoc (DocURL str)                 =   str printHsDoc (DocAName str)               =   str-printHsDoc (DocPic _)                   =   ""+printHsDoc _                            =   ""+   instance Show RdrName where