From 05b8b0e0af1d72e51a3ee61522941bf7605cd01c Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Sat, 4 Jul 2020 14:05:23 +0100 Subject: gentoo resync : 04.07.2020 --- dev-util/bustle/Manifest | 2 - ...le-0.4.2-restrict-gtk2hs-deps-to-gtkplus2.patch | 61 -------- dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch | 172 --------------------- 3 files changed, 235 deletions(-) delete mode 100644 dev-util/bustle/files/bustle-0.4.2-restrict-gtk2hs-deps-to-gtkplus2.patch delete mode 100644 dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch (limited to 'dev-util/bustle') diff --git a/dev-util/bustle/Manifest b/dev-util/bustle/Manifest index 85c8bfe7547f..149ff49a3ff7 100644 --- a/dev-util/bustle/Manifest +++ b/dev-util/bustle/Manifest @@ -1,5 +1,3 @@ -AUX bustle-0.4.2-restrict-gtk2hs-deps-to-gtkplus2.patch 1780 BLAKE2B 3dabdb99730f9581bd44d5c5ff9930aa57887e830db3226a37f9ba788e46b17e64ceb35f75476872936cc07c42cbda2241fd03a2d3fbb1ab5c3d2a59ece99811 SHA512 b5765864998fb4a65632657630faf499a7ece40e51c396e0055c574f524fef998f226f2bfca00b15b26ee20066ff4fef6627e6d0a94ff3cc9a5bb1b43b493588 -AUX bustle-0.4.7-gtk-0.13.patch 6428 BLAKE2B 20eea89172dbd4ef029ec598be9556721d8a5503aaf6cf1cefa3003e166dd12e1d1be3e41152ba530a49bf8bdd746495797887bb4c3ba9c91df965b3cd54c529 SHA512 49103d8b1019be025f52c2999dbbe34232a0133797a3e4ccc1e82e8ce61da71953c5b9084cdefc6f7cbba19c78032de1fcbd146f695abd07497ce867e5b03aff DIST bustle-0.5.4.tar.gz 122720 BLAKE2B b5a2315919644ab5c7712f9e9bde1bdea226b4e8898981f7150558bde648a5c7965be6ad8484c09727665292e5fe3f0cb545544dbb27f2a2553e513910289620 SHA512 56eaeef831fb5929d57a008ae71d8409048ce5d12eaada98830ef742baf3479264203465d77591cb338374096eac2dc2b68b44f075b2761f16df63fad54b91fd EBUILD bustle-0.5.4.ebuild 1635 BLAKE2B 4e3e075dc2d7ca51a77112a26c86e975681d35f6ba41b5cf2d3b2d074b1d2d5be59f2bb63c713dfa5fbe5c8f6145c87388159060995897062e37de910d00e348 SHA512 f8b263727d6c917fa5a76f6f4462c07310181bac753763ffb44f5633fbdf7b63580f99eae5268e5f29c83df048ae5dfb37bd5aa49984bd6fefcd95e8f9b84af2 MISC metadata.xml 502 BLAKE2B 3ab482910acd7936501b8c519d2da5c286d493a04afc6d5302989ca5662a4f166d84142489789cd5f5ea4071b5a5e54bc9d0586e6e6fe273f3f2f6f4c44149b8 SHA512 834e9820081006344e30580673ccb789750d1af67807f908b21fc5fe0cf1b8554b32b446aa592c52a1dd26e4d36f2f91c3cff569b8c4797ded9c5c6ea1bfa65d diff --git a/dev-util/bustle/files/bustle-0.4.2-restrict-gtk2hs-deps-to-gtkplus2.patch b/dev-util/bustle/files/bustle-0.4.2-restrict-gtk2hs-deps-to-gtkplus2.patch deleted file mode 100644 index 74ab26ff8fcd..000000000000 --- a/dev-util/bustle/files/bustle-0.4.2-restrict-gtk2hs-deps-to-gtkplus2.patch +++ /dev/null @@ -1,61 +0,0 @@ ---- bustle-0.4.2-orig/bustle.cabal 2012-11-15 02:19:34.000000000 +1100 -+++ bustle-0.4.2/bustle.cabal 2013-04-03 15:07:35.381569187 +1100 -@@ -82,15 +82,15 @@ - - Build-Depends: base >= 4 && < 5 - , bytestring -- , cairo -+ , cairo < 0.13 - , containers - , dbus >= 0.10 - , directory - , filepath -- , glib -- , gtk >= 0.12.3 -+ , glib < 0.13 -+ , gtk >= 0.12.3 && < 0.13 - , mtl -- , pango -+ , pango < 0.13 - , parsec - , pcap - , process -@@ -111,15 +111,15 @@ - pkgconfig-depends: glib-2.0 - Build-Depends: base >= 4 && < 5 - , bytestring -- , cairo -+ , cairo < 0.13 - , containers - , dbus - , directory - , filepath -- , gtk > 0.12 -- , glib -+ , gtk > 0.12 && < 0.13 -+ , glib < 0.13 - , mtl -- , pango -+ , pango < 0.13 - , parsec - , pcap - , text -@@ -163,15 +163,15 @@ - main-is: Test/Renderer.hs - other-modules: Bustle.Renderer - Build-Depends: base -- , cairo -+ , cairo < 0.13 - , containers - , dbus >= 0.10 - , directory - , filepath -- , gtk -+ , gtk < 0.13 - , mtl - , text -- , pango -+ , pango < 0.13 - , test-framework - , test-framework-hunit - , HUnit diff --git a/dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch b/dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch deleted file mode 100644 index f2691521c4bd..000000000000 --- a/dev-util/bustle/files/bustle-0.4.7-gtk-0.13.patch +++ /dev/null @@ -1,172 +0,0 @@ -diff --git a/Bustle/Diagram.hs b/Bustle/Diagram.hs -index d558beb..ef96d60 100644 ---- a/Bustle/Diagram.hs -+++ b/Bustle/Diagram.hs -@@ -450,7 +450,7 @@ mkLayout :: (MonadIO m) - mkLayout s e a = liftIO $ do - ctx <- cairoCreateContext Nothing - layout <- layoutEmpty ctx -- layoutSetMarkup layout (Markup.unMarkup s) -+ layoutSetMarkup layout (Markup.unMarkup s) :: IO String - layoutSetFontDescription layout (Just font) - layoutSetEllipsize layout e - layoutSetAlignment layout a -diff --git a/Bustle/UI.hs b/Bustle/UI.hs -index a78797e..9843b29 100644 ---- a/Bustle/UI.hs -+++ b/Bustle/UI.hs -@@ -30,6 +30,7 @@ import Data.IORef - import qualified Data.Set as Set - import Data.List (intercalate) - import Data.Time -+import qualified Data.Text as T - import Data.Monoid (mempty) - import Text.Printf - -@@ -281,6 +282,7 @@ promptToSave wi = io $ do - case mdetails of - Just (RecordedLog tempFilePath) -> do - let tempFileName = takeFileName tempFilePath -+ title :: String - title = printf (__ "Save log '%s' before closing?") tempFileName - prompt <- messageDialogNew (Just (wiWindow wi)) - [DialogModal] -@@ -459,7 +461,7 @@ wiSetLogDetails :: WindowInfo - -> IO () - wiSetLogDetails wi logDetails = do - writeIORef (wiLogDetails wi) (Just logDetails) -- windowSetTitle (wiWindow wi) (printf (__ "%s - Bustle") (logWindowTitle logDetails)) -+ windowSetTitle (wiWindow wi) (printf (__ "%s - Bustle") (logWindowTitle logDetails) :: String) - - setPage :: MonadIO io - => WindowInfo -@@ -525,7 +527,7 @@ loadPixbuf :: FilePath -> IO (Maybe Pixbuf) - loadPixbuf filename = do - iconName <- getDataFileName $ "data/" ++ filename - C.catch (fmap Just (pixbufNewFromFile iconName)) -- (\(GError _ _ msg) -> warn msg >> return Nothing) -+ (\(GError _ _ msg) -> warn (T.unpack msg) >> return Nothing) - - openDialogue :: Window -> B () - openDialogue window = embedIO $ \r -> do -diff --git a/Bustle/UI/Canvas.hs b/Bustle/UI/Canvas.hs -index 46c1582..5a28761 100644 ---- a/Bustle/UI/Canvas.hs -+++ b/Bustle/UI/Canvas.hs -@@ -1,3 +1,4 @@ -+{-# LANGUAGE OverloadedStrings #-} - {- - Bustle.UI.Canvas: displays diagrams - Copyright © 2008–2012 Collabora Ltd. -@@ -58,7 +59,7 @@ canvasNew :: Eq a - -> (Maybe a -> IO ()) - -> IO (Canvas a) - canvasNew builder showBounds selectionChangedCb = do -- layout <- builderGetObject builder castToLayout "diagramLayout" -+ layout <- builderGetObject builder castToLayout ("diagramLayout" :: String) - idRef <- newIORef Nothing - shapesRef <- newIORef [] - widthRef <- newIORef 0 -diff --git a/Bustle/UI/DetailsView.hs b/Bustle/UI/DetailsView.hs -index 35e80d6..d1b9d96 100644 ---- a/Bustle/UI/DetailsView.hs -+++ b/Bustle/UI/DetailsView.hs -@@ -55,7 +55,7 @@ addValue :: Table - -> Int - -> IO Label - addValue table row = do -- label <- labelNew Nothing -+ label <- labelNew (Nothing :: Maybe String) - miscSetAlignment label 0 0 - labelSetEllipsize label EllipsizeStart - labelSetSelectable label True -@@ -77,7 +77,7 @@ detailsViewNew = do - , tableColumnSpacing := 6 - ] - -- title <- labelNew Nothing -+ title <- labelNew (Nothing :: Maybe String) - miscSetAlignment title 0 0 - tableAttach table title 0 2 0 1 [Fill] [Fill] 0 0 - -diff --git a/Bustle/UI/FilterDialog.hs b/Bustle/UI/FilterDialog.hs -index 9560507..152931e 100644 ---- a/Bustle/UI/FilterDialog.hs -+++ b/Bustle/UI/FilterDialog.hs -@@ -99,7 +99,7 @@ runFilterDialog parent names currentlyHidden = do - nameStore <- makeStore names currentlyHidden - sw <- makeView nameStore - -- instructions <- labelNew Nothing -+ instructions <- labelNew (Nothing :: Maybe String) - widgetSetSizeRequest instructions 600 (-1) - labelSetMarkup instructions - (__ "Unticking a service hides its column in the diagram, \ -diff --git a/Bustle/UI/Recorder.hs b/Bustle/UI/Recorder.hs -index 1e98a68..085eea2 100644 ---- a/Bustle/UI/Recorder.hs -+++ b/Bustle/UI/Recorder.hs -@@ -27,6 +27,7 @@ import Control.Monad (when, liftM) - import Control.Concurrent.MVar - import qualified Data.Map as Map - import Data.Monoid -+import qualified Data.Text as T - import Control.Monad.State (runStateT) - import Text.Printf - -@@ -77,8 +78,7 @@ processBatch pendingRef n label incoming = do - -- message from the user's perspective. - i <- takeMVar n - let j = i + (length pending) -- labelSetMarkup label $ -- printf (__ "Logged %u messages…") j -+ labelSetMarkup label $ (printf (__ "Logged %u messages…") j :: String) - putMVar n j - - incoming rr' -@@ -97,8 +97,8 @@ recorderRun filename mwindow incoming finished = C.handle newFailed $ do - maybe (return ()) (windowSetTransientFor dialog) mwindow - dialog `set` [ windowModal := True ] - -- label <- labelNew Nothing -- labelSetMarkup label $ printf (__ "Logged %u messages…") (0 :: Int) -+ label <- labelNew (Nothing :: Maybe String) -+ labelSetMarkup label $ (printf (__ "Logged %u messages…") (0 :: Int) :: String) - loaderStateRef <- newMVar Map.empty - pendingRef <- newMVar [] - let updateLabel µs body = do -@@ -142,7 +142,7 @@ recorderRun filename mwindow incoming finished = C.handle newFailed $ do - widgetShowAll dialog - where - newFailed (GError _ _ message) = do -- displayError mwindow message Nothing -+ displayError mwindow (T.unpack message) Nothing - - recorderChooseFile :: FilePath - -> Maybe Window -diff --git a/bustle.cabal b/bustle.cabal -index 4ac107c..2d1f907 100644 ---- a/bustle.cabal -+++ b/bustle.cabal -@@ -106,10 +106,10 @@ Executable bustle - , directory - , filepath - , glib -- , gtk >= 0.12.4 -+ , gtk >= 0.13 - , hgettext >= 0.1.5 - , mtl -- , pango -+ , pango >= 0.13 - , parsec - , pcap - , process -@@ -136,7 +136,7 @@ Executable test-monitor - , dbus - , directory - , filepath -- , gtk > 0.12 -+ , gtk >= 0.13 - , glib - , hgettext - , mtl -- cgit v1.2.3