Dear all,
GHC 7.2.2 requires explicit FlexibleInstances language pragmas at the
top of each file. Attached is a trivial patch to make it work.
cheers,
Nciholas
diff -r 9a5d05ece18c src/Graphics/UI/WX/Dialogs.hs
--- a/src/Graphics/UI/WX/Dialogs.hs Sat Jan 28 22:58:36 2012 -0800
+++ b/src/Graphics/UI/WX/Dialogs.hs Sat Jan 28 23:01:43 2012 -0800
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeSynonymInstances #-}
--------------------------------------------------------------------------------
{-| Module : Dialogs
diff -r 9a5d05ece18c src/Graphics/UI/WX/Draw.hs
--- a/src/Graphics/UI/WX/Draw.hs Sat Jan 28 22:58:36 2012 -0800
+++ b/src/Graphics/UI/WX/Draw.hs Sat Jan 28 23:01:43 2012 -0800
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeSynonymInstances #-}
--------------------------------------------------------------------------------
{-| Module : Draw
@@ -216,4 +217,4 @@
drawImage dc image pt props
= do bm <- bitmapCreateFromImage image (-1)
drawBitmap dc bm pt False props
- bitmapDelete bm
\ No newline at end of file
+ bitmapDelete bm
diff -r 9a5d05ece18c src/Graphics/UI/WX/Media.hs
--- a/src/Graphics/UI/WX/Media.hs Sat Jan 28 22:58:36 2012 -0800
+++ b/src/Graphics/UI/WX/Media.hs Sat Jan 28 23:01:43 2012 -0800
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeSynonymInstances #-}
--------------------------------------------------------------------------------
{-| Module : Media
diff -r 9a5d05ece18c src/Graphics/UI/WX/Menu.hs
--- a/src/Graphics/UI/WX/Menu.hs Sat Jan 28 22:58:36 2012 -0800
+++ b/src/Graphics/UI/WX/Menu.hs Sat Jan 28 23:01:43 2012 -0800
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeSynonymInstances #-}
--------------------------------------------------------------------------------
{-| Module : Menu
@@ -658,4 +659,4 @@
= do varSet vsbar sb
varSet vidx idx
text <- varGet vtext
- statusBarSetStatusText sb text idx -- initialize
\ No newline at end of file
+ statusBarSetStatusText sb text idx -- initialize
diff -r 9a5d05ece18c src/Graphics/UI/WX/Timer.hs
--- a/src/Graphics/UI/WX/Timer.hs Sat Jan 28 22:58:36 2012 -0800
+++ b/src/Graphics/UI/WX/Timer.hs Sat Jan 28 23:01:43 2012 -0800
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeSynonymInstances #-}
--------------------------------------------------------------------------------
{-| Module : Timer
@@ -71,4 +72,4 @@
instance Commanding Timer where
command
- = newEvent "command" timerGetOnCommand timerOnCommand
\ No newline at end of file
+ = newEvent "command" timerGetOnCommand timerOnCommand
diff -r 9a5d05ece18c src/Graphics/UI/WX/TopLevelWindow.hs
--- a/src/Graphics/UI/WX/TopLevelWindow.hs Sat Jan 28 22:58:36 2012 -0800
+++ b/src/Graphics/UI/WX/TopLevelWindow.hs Sat Jan 28 23:01:43 2012 -0800
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeSynonymInstances #-}
--------------------------------------------------------------------------------
{-| Module : TopLevelWindow
diff -r 9a5d05ece18c src/Graphics/UI/WX/Window.hs
--- a/src/Graphics/UI/WX/Window.hs Sat Jan 28 22:58:36 2012 -0800
+++ b/src/Graphics/UI/WX/Window.hs Sat Jan 28 23:01:43 2012 -0800
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TypeSynonymInstances #-}
--------------------------------------------------------------------------------
{-| Module : Window
@@ -435,4 +436,4 @@
instance Paint (Window a) where
paint = newEvent "paint" windowGetOnPaint (\w h -> windowOnPaint w h)
paintRaw = newEvent "paintRaw" windowGetOnPaintRaw (\w h -> windowOnPaintRaw w h)
- repaint w = windowRefresh w False
\ No newline at end of file
+ repaint w = windowRefresh w False
------------------------------------------------------------------------------
Try before you buy = See our experts in action!
The most comprehensive online learning library for Microsoft developers
is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
Metro Style Apps, more. Free future releases when you subscribe now!
http://p.sf.net/sfu/learndevnow-dev2
_______________________________________________
wxhaskell-devel mailing list
wxhaskell-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wxhaskell-devel
