jsaddle-webkitgtk 0.8.2.0 → 0.8.2.1

raw patch · 2 files changed

+11/−4 lines, 2 files

Files

• jsaddle-webkitgtk.cabal +4/−2
• src/Language/Javascript/JSaddle/WebKitGTK.hs +7/−2

@@ -1,5 +1,5 @@ name: jsaddle-webkitgtk-version: 0.8.2.0+version: 0.8.2.1 cabal-version: >=1.10 build-type: Simple license: MIT@@ -34,8 +34,10 @@         haskell-gi-base >=0.20 && <0.21,         jsaddle >=0.8.0.0 && <0.9,         text >=1.2.1.3 && <1.3,-        unix >=2.3.1.0 && <2.8,         webkitgtk3-javascriptcore >=0.14.0.0 && <0.15+    if !os(windows)+      build-depends:+        unix >=2.3.1.0 && <2.8     default-language: Haskell2010     hs-source-dirs: src     ghc-options: -ferror-spans -Wall

@@ -35,8 +35,9 @@ import Control.Exception (SomeException(..)) import Control.Concurrent (forkIO, yield) -import System.Posix.Signals-       (Handler(..), keyboardSignal, installHandler)+#ifndef mingw32_HOST_OS+import System.Posix.Signals (installHandler, keyboardSignal, Handler(Catch))+#endif import System.Directory (getCurrentDirectory)  import Data.Monoid ((<>))@@ -95,7 +96,11 @@                                    widgetDestroy w  installQuitHandler :: WebView -> IO ()+#ifdef mingw32_HOST_OS+installQuitHandler wv = return () -- TODO: Maybe figure something out here for Windows users.+#else installQuitHandler wv = void $ installHandler keyboardSignal (Catch (quitWebView wv)) Nothing+#endif  postGUIAsync :: IO () -> IO () postGUIAsync action =