dev-haskell/frown - fixed build bug #426478

Package-Manager: portage-2.2.0_alpha110/cvs/Linux x86_64

4 files changed, 413 insertions, 10 deletions

diff --git a/dev-haskell/frown/ChangeLog b/dev-haskell/frown/ChangeLog
index 781a213fd65d..f13057d5de5f 100644
--- a/dev-haskell/frown/ChangeLog
+++ b/dev-haskell/frown/ChangeLog
@@ -1,6 +1,10 @@
 # ChangeLog for dev-haskell/frown
-# Copyright 1999-2007 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-haskell/frown/ChangeLog,v 1.14 2007/12/13 18:01:45 dcoutts Exp $
+# Copyright 1999-2012 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-haskell/frown/ChangeLog,v 1.15 2012/07/13 20:42:04 qnikst Exp $
+
+  14 Jul 2012; Alexander Vershilov <qnikst@gentoo.org> frown-0.6.1-r1.ebuild,
+  +files/frown-0.6.1-ghc74.patch:
+  fixing build failure with ghc-7.4 #426478
 
   13 Dec 2007; Duncan Coutts <dcoutts@gentoo.org> frown-0.6.1-r1.ebuild:
   Fix quoting in ebuild.
diff --git a/dev-haskell/frown/Manifest b/dev-haskell/frown/Manifest
index 77a198394c2e..e0c0ce5cef62 100644
--- a/dev-haskell/frown/Manifest
+++ b/dev-haskell/frown/Manifest
@@ -1,4 +1,5 @@
-DIST frown-0.6.1.tar.gz 1291807 SHA256 bfb5a7a84527624a605342cf739ebbef078a25721ca5af4fb7998590d76a9c05 SHA512 015f65afabde7061318bbd66c79ad064a44774afd9bcf161c842984128679f24c1e91e7de067a14833bd4b69d51906d825e453a02b9c0dd38b13b2a7432a9693 WHIRLPOOL fde918658a1664222b4b37953efabcdbf074c9280c898a39ca1ed0a08b740e2304760a2f08d6c1953f35cfb00a2cbb76690731c4e1a11ac591be93ac620658eb
-EBUILD frown-0.6.1-r1.ebuild 800 SHA256 86b88a62dc12f98db04c487a5ef5782dc358c258b10c678d11fc0b6a0a150a2b SHA512 28dd1724415113b3874d0c16145c0bf9922b1d289c27392b82b5aed21853d2db7b5fa32ad36588cbf341f3ab3f7d13238ea08db27d19a405c7de794882dc9d36 WHIRLPOOL 272753c9346b105fe612ea7fa0b29d308223b3bc16a17a77c83afd18aa3c79b5d218a5e39b12ba2370a7ba99cf74573c65a54d1810391fe688269a4bd9d9a7f6
-MISC ChangeLog 1905 SHA256 412648f27d1c0a985d7e5520df807d300504e62fb2a16d41d572d83e844a4a33 SHA512 122b1ecbe3506536d214e79b80598ed8e8026b1112440574a3ef0428c4a744140876bce50acd5e59329b85c13897e82b05c35336648a509361b2ee149b6faf54 WHIRLPOOL e4f30991e832d8560667bb0f3b3ef198cf3f1d66fc4ca2117550356c42b793eb6a29b8e66660aae2f2d941103132307c31950197624afd30182f5aaebf9d0ebc
-MISC metadata.xml 223 SHA256 1d00c8be162a6cb87b3de440b3e63e10b39c12d56e8fbfe592e75aed872b2508 SHA512 24765bbf1cb187cd262aa7fb3824c1cec65e2bf3f2198099de688916d96401a26458265b15408f22b1fbd6d6a2842df814a57ceda80dfa00d130b24423b7544f WHIRLPOOL 8fd6700f6198db6540eb51edf11372faeb6eb8a542a692e515badf236f62444f2c180f7d08e0f98e9fdfa23de14631b31af50543469aaa27084d6b637e2644c7
+AUX frown-0.6.1-ghc74.patch 12541 RMD160 168a074b98bd343a9c630590cf69dd8efec5e1ed SHA1 2b90b11f1032c97fea0d691a35dd9ee366c2110e SHA256 9c2376f203c60634852b694a85221efd84c125162f55b9f8324760b1327db74c
+DIST frown-0.6.1.tar.gz 1291807 RMD160 7835af5095bc16c7ff459259fa91d1c08c35ca85 SHA1 251d299382f3fd2d1b2a5fda398497d19739a825 SHA256 bfb5a7a84527624a605342cf739ebbef078a25721ca5af4fb7998590d76a9c05
+EBUILD frown-0.6.1-r1.ebuild 836 RMD160 859b9da412b2bcb9c0de41e611e778d747d3d917 SHA1 5f383c117d5560d6d5a9b584a30bbe8eadce1456 SHA256 02eea996256ad108dcfc48cc508c872d7e7d2478bec17bf74a4bb620bd6bca4c
+MISC ChangeLog 2061 RMD160 f1fc31dfcfa6e682c5d431696d49b808dfe6441a SHA1 7df782f2b3566b244ebe3d5d23de3a855868bd47 SHA256 1b40ab6a056d06cd29a20555f1566e2d7fdedc22ba6070d7df51bdebeb543cfd
+MISC metadata.xml 223 RMD160 7783e6057effb8b8f0b79cffe8b557b32c633839 SHA1 7b962c77f2e38479a9d1621ec8d307ca9f761753 SHA256 1d00c8be162a6cb87b3de440b3e63e10b39c12d56e8fbfe592e75aed872b2508
diff --git a/dev-haskell/frown/files/frown-0.6.1-ghc74.patch b/dev-haskell/frown/files/frown-0.6.1-ghc74.patch
new file mode 100644
index 000000000000..0d4e2a150356
--- /dev/null
+++ b/dev-haskell/frown/files/frown-0.6.1-ghc74.patch
@@ -0,0 +1,396 @@
+diff --git a/Base.lhs b/Base.lhs
+index bbd9df5..c26e048 100644
+--- a/Base.lhs
++++ b/Base.lhs
+@@ -36,9 +36,9 @@
+ > where
+ >
+ > import Prettier
+-> import Monad                  (  MonadPlus(..)  )
+-> import IO
+-> import System
++> import Control.Monad                  (  MonadPlus(..)  )
++> import System.IO
++> import System.Exit
+ 
+ %-------------------------------------------------------------------------------
+ \subsection{List utilities}
+diff --git a/Case.lhs b/Case.lhs
+index 6558614..cbe87c0 100644
+--- a/Case.lhs
++++ b/Case.lhs
+@@ -45,10 +45,10 @@
+ > import MergeSort
+ > import Base
+ > import Options
+-> import Maybe
+-> import IO
+-> import Monad
+-> import List                   (  partition  )
++> import Data.Maybe
++> import System.IO
++> import Control.Monad
++> import Data.List                   (  partition  )
+ > import Prelude                hiding (  lookup  )
+ 
+ %-------------------------------=  --------------------------------------------
+@@ -347,4 +347,4 @@ More lookahead.
+ > actions'                      :: Symbol -> Past -> Past
+ > actions' x (Node es ts)       =  Node [ a{ future = f } | a <- es
+ >                                                         , Just f <- [lookup (future a) x] ]
+->                                       [ (e, actions' x t) | (e, t) <- ts ]
+\ No newline at end of file
++>                                       [ (e, actions' x t) | (e, t) <- ts ]
+diff --git a/Compact.lhs b/Compact.lhs
+index f878a06..6886a6a 100644
+--- a/Compact.lhs
++++ b/Compact.lhs
+@@ -49,9 +49,9 @@
+ > import Base
+ > import Generate
+ > import MergeSort
+-> import Char
+-> import IO
+-> import Maybe
++> import Data.Char
++> import System.IO
++> import Data.Maybe
+ > import Prelude                hiding (  lookup  )
+ 
+ %-------------------------------=  --------------------------------------------
+@@ -444,4 +444,4 @@ Names.
+ 
+ >     wrap s                    =  prefix opts ++ s ++ suffix opts
+ >     wrap_var s                =  var (wrap s)
+->     wrap_con s                =  con (wrap s)
+\ No newline at end of file
++>     wrap_con s                =  con (wrap s)
+diff --git a/Convert.lhs b/Convert.lhs
+index 6b7d836..01d2c32 100644
+--- a/Convert.lhs
++++ b/Convert.lhs
+@@ -42,13 +42,13 @@
+ > import OrdUniqListSet         (  Set, MinView(Empty, Min)  ) -- for nhc98
+ > import Atom                   hiding (  string  )
+ > import Haskell                hiding (  Empty, Decl, guard  )
+-> import Maybe
+-> import List
++> import Data.Maybe
++> import Data.List
+ > import Base
+ > import Prettier               hiding (  concat, intersperse  )
+ > import qualified Prettier as PP
+-> import Monad
+-> import IO                     hiding (  isEOF  )
++> import Control.Monad
++> import System.IO                     hiding (  isEOF  )
+ > import Options
+ 
+ > newEOF                        :: Ident
+@@ -361,4 +361,4 @@ Instance of a rule scheme.
+ >           | terminal w        =  w
+ >           | otherwise         =  case lookup w bindings of
+ >                                      Just w' -> w' { attributes = attributes w }
+->                                      Nothing -> updateArgs w (map substitute (arguments w))
+\ No newline at end of file
++>                                      Nothing -> updateArgs w (map substitute (arguments w))
+diff --git a/GParser2.hs b/GParser2.hs
+index 9d04100..0cb4c21 100644
+--- a/GParser2.hs
++++ b/GParser2.hs
+@@ -47,9 +47,9 @@
+   import qualified Base
+   import Prettier               (  Pretty  )
+   import Options
+-  import Char
+-  import List
+-  import IO
++  import Data.Char              hiding (  isSymbol  )
++  import Data.List
++  import System.IO
+ 
+ 
+ 
+@@ -2258,4 +2258,4 @@
+       where verb                =  verbose opts
+  
+   run                           :: (Monad m) => Lex m Answer -> (String -> m Answer)
+-  run parser inp                =  unLex parser (\a _ _ _ _ -> return a) False inp 1 (take 1 (lines inp))
+\ No newline at end of file
++  run parser inp                =  unLex parser (\a _ _ _ _ -> return a) False inp 1 (take 1 (lines inp))
+diff --git a/GVStack.lhs b/GVStack.lhs
+index f5968ad..acb5d96 100644
+--- a/GVStack.lhs
++++ b/GVStack.lhs
+@@ -45,10 +45,10 @@
+ > import Options
+ > import Base
+ > import Generate
+-> import IO
+-> import Monad
+-> import Char
+-> import List                   (  maximumBy  )
++> import System.IO
++> import Control.Monad
++> import Data.Char
++> import Data.List                   (  maximumBy  )
+ > import Prelude                hiding (  lookup  )
+ 
+ %-------------------------------=  --------------------------------------------
+diff --git a/Generate.lhs b/Generate.lhs
+index 74d7335..3b7284f 100644
+--- a/Generate.lhs
++++ b/Generate.lhs
+@@ -43,7 +43,7 @@
+ > import OrdUniqListSet         (  Set  )
+ > import Base
+ > --import Char                   (  toLower, toUpper  )
+-> import List                   (  intersperse  )
++> import Data.List                   (  intersperse  )
+ 
+ Symbols.
+ 
+diff --git a/Haskell.lhs b/Haskell.lhs
+index aba2831..74f7bec 100644
+--- a/Haskell.lhs
++++ b/Haskell.lhs
+@@ -35,7 +35,7 @@
+ > import Atom                   hiding (  string  )
+ > import qualified Atom
+ > import Prettier
+-> import Char
++> import Data.Char
+ > import Prelude                hiding (  concat  )
+ 
+ %-------------------------------=  --------------------------------------------
+diff --git a/LR0.lhs b/LR0.lhs
+index 0a16123..60bb002 100644
+--- a/LR0.lhs
++++ b/LR0.lhs
+@@ -45,7 +45,7 @@
+ > import Base                   hiding (  list  )
+ > import qualified Base
+ > import Prelude                hiding (  null  )
+-> import IO
++> import System.IO
+ > import Options
+ 
+ %-------------------------------=  --------------------------------------------
+@@ -269,4 +269,4 @@ State |0| is the error or trap state and the goto state for start
+ productions such as |Start# : Start, EOF;|.
+ 
+ > errorState                    :: State
+-> errorState                    =  State 0 (Set.empty :\/ Set.empty)
+\ No newline at end of file
++> errorState                    =  State 0 (Set.empty :\/ Set.empty)
+diff --git a/Lexer2.lhs b/Lexer2.lhs
+index af55186..3bb1e33 100644
+--- a/Lexer2.lhs
++++ b/Lexer2.lhs
+@@ -35,9 +35,9 @@
+ > module Lexer2
+ > where
+ > import Prelude
+-> import Char
+-> import IO
+-> import Monad
++> import Data.Char
++> import System.IO
++> import Control.Monad
+ > import Base
+ > import Options
+ 
+@@ -156,4 +156,4 @@
+ 
+ > isSymbol, isIdChar	        :: Char -> Bool
+ > isSymbol c			=  c `elem` "!@#$%&*+./<=>?\\^|:-~"
+-> isIdChar c			=  isAlphaNum c || c `elem` "_'"
+\ No newline at end of file
++> isIdChar c			=  isAlphaNum c || c `elem` "_'"
+diff --git a/Lib/OrdUniqListFM.lhs b/Lib/OrdUniqListFM.lhs
+index 1419028..4e2eea5 100644
+--- a/Lib/OrdUniqListFM.lhs
++++ b/Lib/OrdUniqListFM.lhs
+@@ -64,8 +64,8 @@
+ > import qualified OrdUniqList as OUL
+ > import MergeSort		(  mergeSort  )
+ > import Prettier               hiding (  empty  )
+-> import qualified List
+-> import Maybe                  (  fromMaybe  )
++> import qualified Data.List as List
++> import Data.Maybe                  (  fromMaybe  )
+ 
+ > infixl 9  !
+ > infixl 9  //
+@@ -292,4 +292,4 @@ The list argument of |fromList_C| need not be functional.
+ @prefixLookup@ returns the list of all completions of the given list.
+ 
+  prefixLookup			:: Ord a => FM [a] b -> [a] -> [([a], b)]
+- prefixLookup (FM f) s		=  [ b | Assoc b@(a, _)<-f, s `isPrefixOf` a ]
+\ No newline at end of file
++ prefixLookup (FM f) s		=  [ b | Assoc b@(a, _)<-f, s `isPrefixOf` a ]
+diff --git a/Lib/OrdUniqListSet.lhs b/Lib/OrdUniqListSet.lhs
+index 66eba10..ddb8629 100644
+--- a/Lib/OrdUniqListSet.lhs
++++ b/Lib/OrdUniqListSet.lhs
+@@ -59,8 +59,8 @@
+ > import qualified Prelude
+ > import qualified OrdUniqList as OUL
+ > import Prettier               hiding (  empty  )
+-> import qualified List
+-> import Monad
++> import qualified Data.List as List
++> import Control.Monad
+ 
+ %-------------------------------------------------------------------------------
+ \subsection{Type definitions and instance declarations}
+diff --git a/Lookahead.lhs b/Lookahead.lhs
+index ba23a5d..5c0fb31 100644
+--- a/Lookahead.lhs
++++ b/Lookahead.lhs
+@@ -42,9 +42,9 @@
+ > import qualified Prettier as PP
+ > import Base
+ > import Options
+-> import IO
+-> import Maybe
+-> import Monad                  (  when  )
++> import System.IO
++> import Data.Maybe
++> import Control.Monad                  (  when  )
+ 
+ %-------------------------------=  --------------------------------------------
+ \section{Grouping of actions}
+diff --git a/Main.lhs b/Main.lhs
+index b9b2a2e..98af968 100644
+--- a/Main.lhs
++++ b/Main.lhs
+@@ -53,11 +53,12 @@ Compile me with
+ > import Prettier               hiding (  string, concat  )
+ > import qualified Prettier as PP
+ > import qualified SearchTree as ST
+-> import Monad                  (  when  )
+-> import Directory
+-> import IO
+-> import System
++> import Control.Monad                  (  when  )
++> import System.Directory
+ > import System.Console.GetOpt
++> import System.Exit
++> import System.Environment
++> import System.IO
+ 
+ %-------------------------------=  --------------------------------------------
+ \section{The main program}
+@@ -689,4 +690,4 @@ o  Introduce abbreviations for patterns (as in Happy):
+                                  | let add op = ADDOP (op :: Addop)
+                                  | let id  s  = IDENT (s :: String);
+ 
+-   |add op| serves as an abbreviation for |ADDOP op|.
+\ No newline at end of file
++   |add op| serves as an abbreviation for |ADDOP op|.
+diff --git a/Options.lhs b/Options.lhs
+index a0e559f..ece780d 100644
+--- a/Options.lhs
++++ b/Options.lhs
+@@ -33,8 +33,8 @@
+ > where
+ > import Base
+ > import System.Console.GetOpt
+-> import Char
+-> import IO
++> import Data.Char
++> import System.IO
+ 
+ %-------------------------------=  --------------------------------------------
+ \section{Command line options}
+@@ -149,4 +149,4 @@
+ >   | otherwise                 =  Signature False
+ 
+ > (<<)                          :: String -> String -> Bool
+-> s << t                        =  map toLower s `isPrefix` map toLower t
+\ No newline at end of file
++> s << t                        =  map toLower s `isPrefix` map toLower t
+diff --git a/SearchTree.lhs b/SearchTree.lhs
+index 85755d4..d1c58ba 100644
+--- a/SearchTree.lhs
++++ b/SearchTree.lhs
+@@ -32,7 +32,7 @@
+ >                               ,  length, lookup, unsafeLookup  )
+ > where
+ > import MergeSort		(  mergeSortBy  )
+-> import Maybe                  (  fromMaybe  )
++> import Data.Maybe                  (  fromMaybe  )
+ > import Prelude                hiding (  length, lookup  )
+ > import qualified Prelude
+ 
+@@ -99,4 +99,4 @@ Lookup.
+ 
+ 
+ > unsafeLookup                  :: (Ord a, Show a) => FM a v -> a -> v
+-> unsafeLookup fm a             =  fromMaybe (error ("unsafeLookup: key not found: " ++ show a)) (lookup fm a)
+\ No newline at end of file
++> unsafeLookup fm a             =  fromMaybe (error ("unsafeLookup: key not found: " ++ show a)) (lookup fm a)
+diff --git a/Stackless.lhs b/Stackless.lhs
+index 106b8f3..2fb1a97 100644
+--- a/Stackless.lhs
++++ b/Stackless.lhs
+@@ -47,10 +47,10 @@
+ > import Base
+ > import Generate
+ > import MergeSort
+-> import Char
+-> import Maybe
+-> import IO
+-> import Monad
++> import Data.Char
++> import Data.Maybe
++> import System.IO
++> import Control.Monad
+ > import Prelude                hiding (  lookup  )
+ 
+ Characteristics.
+@@ -311,4 +311,4 @@ Names.
+ 
+ >     wrap s                    =  prefix opts ++ s ++ suffix opts
+ >     wrap_var s                =  var (wrap s)
+->     wrap_con s                =  con (wrap s)
+\ No newline at end of file
++>     wrap_con s                =  con (wrap s)
+diff --git a/Standard.lhs b/Standard.lhs
+index 18bce59..9fb5305 100644
+--- a/Standard.lhs
++++ b/Standard.lhs
+@@ -47,9 +47,9 @@
+ > import Options
+ > import Base
+ > import Generate
+-> import Char
+-> import IO
+-> import Maybe
++> import Data.Char
++> import System.IO
++> import Data.Maybe
+ > import Prelude                hiding (  lookup  )
+ 
+ Characteristics.
+@@ -293,4 +293,4 @@ Names.
+ 
+ >     wrap s                    =  prefix opts ++ s ++ suffix opts
+ >     wrap_var s                =  var (wrap s)
+->     wrap_con s                =  con (wrap s)
+\ No newline at end of file
++>     wrap_con s                =  con (wrap s)
+diff --git a/frown.cabal b/frown.cabal
+index 19448ed..5a44fdf 100644
+--- a/frown.cabal
++++ b/frown.cabal
+@@ -2,7 +2,7 @@ Name:			Frown
+ Version:		0.6
+ License:		GPL
+ Author:			Ralf Hinze
+-Build-Depends:		base, haskell98
++Build-Depends:		base, directory
+ Synopsis:		A parser generator for Haskell
+ 
+ Executable:		frown
diff --git a/dev-haskell/frown/frown-0.6.1-r1.ebuild b/dev-haskell/frown/frown-0.6.1-r1.ebuild
index 8db2b87c5afa..f4c3e52c557e 100644
--- a/dev-haskell/frown/frown-0.6.1-r1.ebuild
+++ b/dev-haskell/frown/frown-0.6.1-r1.ebuild
@@ -1,6 +1,8 @@
-# Copyright 1999-2007 Gentoo Foundation
+# Copyright 1999-2012 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/dev-haskell/frown/frown-0.6.1-r1.ebuild,v 1.12 2007/12/13 18:01:45 dcoutts Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-haskell/frown/frown-0.6.1-r1.ebuild,v 1.13 2012/07/13 20:42:04 qnikst Exp $
+
+EAPI="4"
 
 CABAL_FEATURES="bin"
 inherit haskell-cabal
@@ -18,10 +20,10 @@ RDEPEND=""
 
 S="${WORKDIR}/Frown-${PV}"
 
-src_unpack() {
-	unpack ${A}
+src_prepare() {
 	# enabling optimisation is strongly recommended
 	echo "ghc-options: -O" >> "${S}/frown.cabal"
+	epatch "${FILESDIR}/${P}-ghc74.patch"
 }
 
 src_install() {