From 146610be8d0d0fabcfc78cd9c42af93fb02acc23 Mon Sep 17 00:00:00 2001
From: Ian-Woo Kim <ianwookim@gmail.com>
Date: Tue, 5 Apr 2016 05:24:37 +0000
Subject: [PATCH] poppler version up to 0.14 (to match gtk2hs.) remove
 PopplerOrientation to be compatible with poppler C lib version > 0.39.
 Resolved the issue #17.

---
 Graphics/UI/Gtk/Poppler/Enums.chs   |  2 --
 Graphics/UI/Gtk/Poppler/Structs.hsc | 17 +++++++++--------
 poppler.cabal                       | 10 +++++-----
 template-hsc-gtk2hs.h               |  1 +
 4 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/Graphics/UI/Gtk/Poppler/Enums.chs b/Graphics/UI/Gtk/Poppler/Enums.chs
index 843c811..00a7d8e 100644
--- a/Graphics/UI/Gtk/Poppler/Enums.chs
+++ b/Graphics/UI/Gtk/Poppler/Enums.chs
@@ -30,7 +30,6 @@
 module Graphics.UI.Gtk.Poppler.Enums (
 -- * Enums
     Error(..),
-    Orientation(..),
     SelectionStyle(..),
     PageTransitionType(..),
     PageTransitionAlignment(..),
@@ -60,7 +59,6 @@ import System.Glib.UTFString
 {# context lib="poppler" prefix="poppler" #}
 
 {# enum PopplerError as Error {underscoreToCase} with prefix = "Poppler" deriving (Eq, Ord, Bounded, Show, Typeable) #}
-{# enum PopplerOrientation as Orientation {underscoreToCase} with prefix = "Poppler" deriving (Eq, Ord, Bounded, Show, Typeable) #}
 {# enum PopplerSelectionStyle as SelectionStyle {underscoreToCase} with prefix = "Poppler" deriving (Eq, Ord, Bounded, Show, Typeable) #}
 {# enum PopplerPageTransitionType as PageTransitionType {underscoreToCase} with prefix = "Poppler" deriving (Eq, Ord, Bounded, Show, Typeable) #}
 {# enum PopplerPageTransitionAlignment as PageTransitionAlignment {underscoreToCase} with prefix = "Poppler" deriving (Eq, Ord, Bounded, Show, Typeable) #}
diff --git a/Graphics/UI/Gtk/Poppler/Structs.hsc b/Graphics/UI/Gtk/Poppler/Structs.hsc
index 36d3612..f2a86e1 100644
--- a/Graphics/UI/Gtk/Poppler/Structs.hsc
+++ b/Graphics/UI/Gtk/Poppler/Structs.hsc
@@ -37,7 +37,7 @@ module Graphics.UI.Gtk.Poppler.Structs (
     peekPopplerColor,                
     ) where
     
-import Control.Monad		(liftM)
+import Control.Monad            (liftM)
 import Data.IORef
 import Control.Exception
 
@@ -51,7 +51,7 @@ import System.Glib.GObject (makeNewGObject)
 -- * Specifies x, y, width and height
 --
 data PopplerRectangle = PopplerRectangle Double Double Double Double
-		      deriving Show
+                      deriving Show
 
 instance Storable PopplerRectangle where
   sizeOf _ = #{const sizeof(PopplerRectangle)}
@@ -68,10 +68,10 @@ instance Storable PopplerRectangle where
 
 peekPopplerRectangle :: Ptr PopplerRectangle -> IO PopplerRectangle
 peekPopplerRectangle ptr = do
-    (x1_ ::#gtk2hs_type gdouble)	<- #{peek PopplerRectangle, x1} ptr
-    (y1_ ::#gtk2hs_type gdouble)	<- #{peek PopplerRectangle, y1} ptr
-    (x2_ ::#gtk2hs_type gdouble)	<- #{peek PopplerRectangle, x2} ptr
-    (y2_ ::#gtk2hs_type gdouble)	<- #{peek PopplerRectangle, y2} ptr
+    (x1_ ::#gtk2hs_type gdouble)        <- #{peek PopplerRectangle, x1} ptr
+    (y1_ ::#gtk2hs_type gdouble)        <- #{peek PopplerRectangle, y1} ptr
+    (x2_ ::#gtk2hs_type gdouble)        <- #{peek PopplerRectangle, x2} ptr
+    (y2_ ::#gtk2hs_type gdouble)        <- #{peek PopplerRectangle, y2} ptr
     return (PopplerRectangle (realToFrac x1_) (realToFrac y1_)
                              (realToFrac x2_) (realToFrac y2_))
       
@@ -89,7 +89,8 @@ instance Storable PopplerColor where
      
 peekPopplerColor :: Ptr PopplerColor -> IO PopplerColor
 peekPopplerColor ptr = do
-    red	   <- #{peek PopplerColor, red} ptr
+    red    <- #{peek PopplerColor, red} ptr
     green  <- #{peek PopplerColor, green} ptr
     blue   <- #{peek PopplerColor, blue} ptr
-    return $ PopplerColor red green blue
\ No newline at end of file
+    return $ PopplerColor red green blue
+
diff --git a/poppler.cabal b/poppler.cabal
index 2d526bc..4d8def1 100644
--- a/poppler.cabal
+++ b/poppler.cabal
@@ -1,5 +1,5 @@
 Name:           poppler
-Version:        0.13.1
+Version:        0.14
 License:        GPL-2
 License-file:   COPYING
 Copyright:      (c) 2001-2012, 2014 The Gtk2Hs Team
@@ -45,12 +45,12 @@ flag gtk3
 Library
         build-depends:  base >= 4 && < 5, array, containers, 
                         mtl, bytestring,
-                        glib >= 0.13 && < 0.14,
-                        cairo >= 0.13 && < 0.14
+                        glib >= 0.13 && < 0.15,
+                        cairo >= 0.13 && < 0.15
         if flag(gtk3)
-          build-depends: gtk3 >= 0.13 && < 0.14
+          build-depends: gtk3 >= 0.13 && < 0.15
         else
-          build-depends: gtk >= 0.13 && < 0.14
+          build-depends: gtk >= 0.13 && < 0.15
         build-tools:    gtk2hsC2hs, gtk2hsHookGenerator, gtk2hsTypeGen
 						
         exposed-modules:
diff --git a/template-hsc-gtk2hs.h b/template-hsc-gtk2hs.h
index dc871ee..1256b23 100644
--- a/template-hsc-gtk2hs.h
+++ b/template-hsc-gtk2hs.h
@@ -1,6 +1,7 @@
 #ifndef _TEMPLATE_HSC_GTK2HS_H_
 #define _TEMPLATE_HSC_GTK2HS_H_
 
+#include <stdio.h>
 #include <glib.h>
 
 #define hsc_gtk2hs_type(t)                        \