diff -Nru haskell-gtk-strut-0.1.2.1/debian/changelog haskell-gtk-strut-0.1.3.0/debian/changelog --- haskell-gtk-strut-0.1.2.1/debian/changelog 2019-08-08 14:37:02.000000000 +0000 +++ haskell-gtk-strut-0.1.3.0/debian/changelog 2019-08-31 23:16:40.000000000 +0000 @@ -1,8 +1,8 @@ -haskell-gtk-strut (0.1.2.1-1build1) eoan; urgency=medium +haskell-gtk-strut (0.1.3.0-1) unstable; urgency=medium - * Rebuild against new GHC abi. + * New upstream release - -- Gianfranco Costamagna Thu, 08 Aug 2019 16:37:02 +0200 + -- Clint Adams Sat, 31 Aug 2019 19:16:40 -0400 haskell-gtk-strut (0.1.2.1-1) unstable; urgency=low diff -Nru haskell-gtk-strut-0.1.2.1/gtk-strut.cabal haskell-gtk-strut-0.1.3.0/gtk-strut.cabal --- haskell-gtk-strut-0.1.2.1/gtk-strut.cabal 2018-05-20 08:59:52.000000000 +0000 +++ haskell-gtk-strut-0.1.3.0/gtk-strut.cabal 2018-12-08 07:38:38.000000000 +0000 @@ -1,11 +1,13 @@ --- This file has been generated from package.yaml by hpack version 0.27.0. +cabal-version: 1.12 + +-- This file has been generated from package.yaml by hpack version 0.31.1. -- -- see: https://github.com/sol/hpack -- --- hash: c1b982826943ec79586e57d5e35f06abdebdb82dcfa8f11b96293a880f553c88 +-- hash: 59b81efe446840a83cfa0445adb590537b8ca5f8fad1b907a117b4e6e7daaba9 name: gtk-strut -version: 0.1.2.1 +version: 0.1.3.0 synopsis: Libary for creating strut windows with gi-gtk description: Please see the README on Github at category: System @@ -17,11 +19,9 @@ license: BSD3 license-file: LICENSE build-type: Simple -cabal-version: >= 1.10 - extra-source-files: - ChangeLog.md README.md + ChangeLog.md source-repository head type: git diff -Nru haskell-gtk-strut-0.1.2.1/src/Graphics/UI/GIGtkStrut.hs haskell-gtk-strut-0.1.3.0/src/Graphics/UI/GIGtkStrut.hs --- haskell-gtk-strut-0.1.2.1/src/Graphics/UI/GIGtkStrut.hs 2018-05-20 08:59:52.000000000 +0000 +++ haskell-gtk-strut-0.1.3.0/src/Graphics/UI/GIGtkStrut.hs 2018-12-08 07:38:38.000000000 +0000 @@ -2,6 +2,7 @@ import Control.Monad import Control.Monad.IO.Class +import Control.Monad.Fail (MonadFail) import Control.Monad.Trans.Class import Control.Monad.Trans.Maybe import Data.Int @@ -37,13 +38,13 @@ , strutDisplayName = Nothing } -buildStrutWindow :: MonadIO m => StrutConfig -> m Gtk.Window +buildStrutWindow :: (MonadFail m, MonadIO m) => StrutConfig -> m Gtk.Window buildStrutWindow config = do window <- Gtk.windowNew Gtk.WindowTypeToplevel setupStrutWindow config window return window -setupStrutWindow :: MonadIO m => StrutConfig -> Gtk.Window -> m () +setupStrutWindow :: (MonadFail m, MonadIO m) => StrutConfig -> Gtk.Window -> m () setupStrutWindow StrutConfig { strutWidth = widthSize , strutHeight = heightSize