hpage 0.10.1 → 0.10.2

raw patch · 2 files changed

+7/−4 lines, 2 files

Files

hpage.cabal +1/−1
src/HPage/GUI/Dialogs.hs +6/−3

hpage.cabal view

@@ -1,5 +1,5 @@ name: hpage-version: 0.10.1+version: 0.10.2 cabal-version: >=1.6 build-type: Custom license: BSD3

src/HPage/GUI/Dialogs.hs view

@@ -27,10 +27,13 @@         dlg <- dialog win [text := caption]         htmlw <- htmlWindowCreate dlg idAny (rect (point 0 0) winsize) 0 ""         debugIO ("url:", url)-        True <- htmlWindowLoadPage htmlw url+        opened <- htmlWindowLoadPage htmlw url+        if opened+            then return ()+            else htmlWindowSetPage htmlw $ "The browser could not open the page: <a href='" ++ url ++ "'>" ++ url ++ "</a>"         set dlg [layout := fill $ widget htmlw,-                 visible := True,-                 clientSize := winsize]+                    visible := True,+                    clientSize := winsize]         windowCenter dlg wxCENTRE_ON_SCREEN         return ()