commit ghc-mainland-pretty for openSUSE:Factory
![](https://seccdn.libravatar.org/avatar/e2145bc5cf53dda95c308a3c75e8fef3.jpg?s=120&d=mm&r=g)
Hello community,
here is the log from the commit of package ghc-mainland-pretty for openSUSE:Factory checked in at 2017-08-31 20:57:15
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-mainland-pretty (Old)
and /work/SRC/openSUSE:Factory/.ghc-mainland-pretty.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-mainland-pretty"
Thu Aug 31 20:57:15 2017 rev:2 rq:513427 version:0.6.1
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-mainland-pretty/ghc-mainland-pretty.changes 2016-11-03 11:13:27.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-mainland-pretty.new/ghc-mainland-pretty.changes 2017-08-31 20:57:16.188619143 +0200
@@ -1,0 +2,5 @@
+Thu Jul 27 14:07:04 UTC 2017 - psimons@suse.com
+
+- Update to version 0.6.1.
+
+-------------------------------------------------------------------
Old:
----
mainland-pretty-0.4.1.4.tar.gz
New:
----
mainland-pretty-0.6.1.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-mainland-pretty.spec ++++++
--- /var/tmp/diff_new_pack.3IMkPZ/_old 2017-08-31 20:57:17.956370768 +0200
+++ /var/tmp/diff_new_pack.3IMkPZ/_new 2017-08-31 20:57:17.968369082 +0200
@@ -1,7 +1,7 @@
#
# spec file for package ghc-mainland-pretty
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,21 +18,20 @@
%global pkg_name mainland-pretty
Name: ghc-%{pkg_name}
-Version: 0.4.1.4
+Version: 0.6.1
Release: 0
Summary: Pretty printing designed for printing source code
License: BSD-3-Clause
-Group: System/Libraries
+Group: Development/Languages/Other
Url: https://hackage.haskell.org/package/%{pkg_name}
Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz
BuildRequires: ghc-Cabal-devel
-# Begin cabal-rpm deps:
BuildRequires: ghc-containers-devel
BuildRequires: ghc-rpm-macros
BuildRequires: ghc-srcloc-devel
BuildRequires: ghc-text-devel
+BuildRequires: ghc-transformers-devel
BuildRoot: %{_tmppath}/%{name}-%{version}-build
-# End cabal-rpm deps
%description
Pretty printing designed for printing source code based on Wadler's paper /A
@@ -56,15 +55,12 @@
%prep
%setup -q -n %{pkg_name}-%{version}
-
%build
%ghc_lib_build
-
%install
%ghc_lib_install
-
%post devel
%ghc_pkg_recache
++++++ mainland-pretty-0.4.1.4.tar.gz -> mainland-pretty-0.6.1.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mainland-pretty-0.4.1.4/LICENSE new/mainland-pretty-0.6.1/LICENSE
--- old/mainland-pretty-0.4.1.4/LICENSE 2016-05-02 00:52:51.000000000 +0200
+++ new/mainland-pretty-0.6.1/LICENSE 2017-06-17 21:05:09.000000000 +0200
@@ -48,7 +48,7 @@
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-Copyright (c) 2015-2016
+Copyright (c) 2015-2017
Drexel University.
Redistribution and use in source and binary forms, with or without
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mainland-pretty-0.4.1.4/Text/PrettyPrint/Mainland/Class.hs new/mainland-pretty-0.6.1/Text/PrettyPrint/Mainland/Class.hs
--- old/mainland-pretty-0.4.1.4/Text/PrettyPrint/Mainland/Class.hs 1970-01-01 01:00:00.000000000 +0100
+++ new/mainland-pretty-0.6.1/Text/PrettyPrint/Mainland/Class.hs 2017-06-17 21:05:09.000000000 +0200
@@ -0,0 +1,273 @@
+{-# LANGUAGE CPP #-}
+
+-- |
+-- Module : Text.PrettyPrint.Mainland
+-- Copyright : (c) 2006-2011 Harvard University
+-- (c) 2011-2012 Geoffrey Mainland
+-- (c) 2015-2017 Drexel University
+-- License : BSD-style
+-- Maintainer : mainland@drexel.edu
+--
+-- Stability : provisional
+-- Portability : portable
+--
+-- This module is based on /A Prettier Printer/ by Phil Wadler in
+-- /The Fun of Programming/, Jeremy Gibbons and Oege de Moor (eds)
+-- http://homepages.inf.ed.ac.uk/wadler/papers/prettier/prettier.pdf
+--
+-- At the time it was originally written I didn't know about Daan Leijen's
+-- pretty printing module based on the same paper. I have since incorporated
+-- many of his improvements. This module is geared towards pretty printing
+-- source code; its main advantages over other libraries are the ability to
+-- automatically track the source locations associated with pretty printed
+-- values and output appropriate #line pragmas and the use of
+-- 'Data.Text.Lazy.Text' for output.
+
+module Text.PrettyPrint.Mainland.Class (
+ -- * The 'Pretty' type class for pretty printing
+ Pretty(..),
+
+ pprint
+ ) where
+
+import Control.Monad.IO.Class (MonadIO, liftIO)
+import Data.Complex (Complex, realPart, imagPart)
+import Data.Int
+import Data.Loc (L(..),
+ Loc(..),
+ Pos(..),
+ posFile)
+import qualified Data.Map as Map
+import qualified Data.Set as Set
+import qualified Data.Text as T
+import qualified Data.Text.Lazy as L
+import Data.Word
+import Data.Ratio (Ratio(..), denominator, numerator)
+
+import Text.PrettyPrint.Mainland
+
+-- | The 'pprint' function outputs a value of any type that is an instance of
+-- 'Pretty' to the standard output device by calling 'ppr' and adding a newline.
+pprint :: (Pretty a, MonadIO m) => a -> m ()
+pprint = liftIO . putDocLn . ppr
+
+class Pretty a where
+#if __GLASGOW_HASKELL__ >= 708
+ {-# MINIMAL pprPrec | ppr #-}
+#endif
+ ppr :: a -> Doc
+ pprPrec :: Int -> a -> Doc
+ pprList :: [a] -> Doc
+
+ ppr = pprPrec 0
+ pprPrec _ = ppr
+ pprList xs = list (map ppr xs)
+
+instance Pretty a => Pretty [a] where
+ ppr = pprList
+
+instance Pretty a => Pretty (Maybe a) where
+ pprPrec _ Nothing = empty
+ pprPrec p (Just a) = pprPrec p a
+
+instance Pretty Bool where
+ ppr = bool
+
+instance Pretty Char where
+ ppr = char
+ pprList = string
+
+instance Pretty Int where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Integer where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Float where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Double where
+ pprPrec p x = text (showsPrec p x "")
+
+ratioPrec, ratioPrec1 :: Int
+ratioPrec = 7 -- Precedence of ':%' constructor
+ratioPrec1 = ratioPrec + 1
+
+instance (Integral a, Pretty a) => Pretty (Ratio a) where
+ pprPrec p x =
+ parensIf (p > ratioPrec) $
+ pprPrec ratioPrec1 (numerator x) <+> char '%' <+> pprPrec ratioPrec1 (denominator x)
+
+addPrec :: Int
+addPrec = 6 -- Precedence of '+'
+
+instance (RealFloat a, Pretty a) => Pretty (Complex a) where
+ pprPrec p x =
+ parensIf (p > addPrec) $
+ pprPrec addPrec (realPart x) <+> text ":+" <+> pprPrec addPrec (imagPart x)
+
+instance Pretty Word8 where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Word16 where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Word32 where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Word64 where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Int8 where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Int16 where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Int32 where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty Int64 where
+ pprPrec p x = text (showsPrec p x "")
+
+instance Pretty T.Text where
+ ppr = strictText
+
+instance Pretty L.Text where
+ ppr = lazyText
+
+instance Pretty Doc where
+ ppr doc = doc
+
+instance Pretty Pos where
+ ppr p@(Pos _ l c _) =
+ text (posFile p) <> colon <> ppr l <> colon <> ppr c
+
+instance Pretty Loc where
+ ppr NoLoc = text "<no location info>"
+
+ ppr (Loc p1@(Pos f1 l1 c1 _) p2@(Pos f2 l2 c2 _))
+ | f1 == f2 = text (posFile p1) <> colon /> pprLineCol l1 c1 l2 c2
+ | otherwise = ppr p1 <> text "-" <> ppr p2
+ where
+ pprLineCol :: Int -> Int -> Int -> Int -> Doc
+ pprLineCol l1 c1 l2 c2
+ | l1 == l2 && c1 == c2 = ppr l1 /> colon /> ppr c1
+ | l1 == l2 && c1 /= c2 = ppr l1 /> colon />
+ ppr c1 <> text "-" <> ppr c2
+ | otherwise = ppr l1 /> colon /> ppr c1
+ <> text "-" <>
+ ppr l2 /> colon /> ppr c2
+
+instance Pretty x => Pretty (L x) where
+ pprPrec p (L _ x) = pprPrec p x
+
+instance (Pretty k, Pretty v) => Pretty (Map.Map k v) where
+ ppr = pprList . Map.toList
+
+instance Pretty a => Pretty (Set.Set a) where
+ ppr = pprList . Set.toList
+
+instance Pretty () where
+ ppr () =
+ tuple []
+
+instance (Pretty a, Pretty b)
+ => Pretty (a, b) where
+ ppr (a, b) =
+ tuple [ppr a, ppr b]
+
+instance (Pretty a, Pretty b, Pretty c)
+ => Pretty (a, b, c) where
+ ppr (a, b, c) =
+ tuple [ppr a, ppr b, ppr c]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d)
+ => Pretty (a, b, c, d) where
+ ppr (a, b, c, d) =
+ tuple [ppr a, ppr b, ppr c, ppr d]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e)
+ => Pretty (a, b, c, d, e) where
+ ppr (a, b, c, d, e) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f)
+ => Pretty (a, b, c, d, e, f) where
+ ppr (a, b, c, d, e, f) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g)
+ => Pretty (a, b, c, d, e, f, g) where
+ ppr (a, b, c, d, e, f, g) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g, Pretty h)
+ => Pretty (a, b, c, d, e, f, g, h) where
+ ppr (a, b, c, d, e, f, g, h) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g, ppr h]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g, Pretty h, Pretty i)
+ => Pretty (a, b, c, d, e, f, g, h, i) where
+ ppr (a, b, c, d, e, f, g, h, i) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g, ppr h, ppr i]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g, Pretty h, Pretty i, Pretty j)
+ => Pretty (a, b, c, d, e, f, g, h, i, j) where
+ ppr (a, b, c, d, e, f, g, h, i, j) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g, ppr h, ppr i, ppr j]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
+ Pretty k)
+ => Pretty (a, b, c, d, e, f, g, h, i, j, k) where
+ ppr (a, b, c, d, e, f, g, h, i, j, k) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g, ppr h, ppr i, ppr j,
+ ppr k]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
+ Pretty k, Pretty l)
+ => Pretty (a, b, c, d, e, f, g, h, i, j, k, l) where
+ ppr (a, b, c, d, e, f, g, h, i, j, k, l) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g, ppr h, ppr i, ppr j,
+ ppr k, ppr l]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
+ Pretty k, Pretty l, Pretty m)
+ => Pretty (a, b, c, d, e, f, g, h, i, j, k, l, m) where
+ ppr (a, b, c, d, e, f, g, h, i, j, k, l, m) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g, ppr h, ppr i, ppr j,
+ ppr k, ppr l, ppr m]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
+ Pretty k, Pretty l, Pretty m, Pretty n)
+ => Pretty (a, b, c, d, e, f, g, h, i, j, k, l, m, n) where
+ ppr (a, b, c, d, e, f, g, h, i, j, k, l, m, n) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g, ppr h, ppr i, ppr j,
+ ppr k, ppr l, ppr m, ppr n]
+
+instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
+ Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
+ Pretty k, Pretty l, Pretty m, Pretty n, Pretty o)
+ => Pretty (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) where
+ ppr (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) =
+ tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
+ ppr f, ppr g, ppr h, ppr i, ppr j,
+ ppr k, ppr l, ppr m, ppr n, ppr o]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mainland-pretty-0.4.1.4/Text/PrettyPrint/Mainland.hs new/mainland-pretty-0.6.1/Text/PrettyPrint/Mainland.hs
--- old/mainland-pretty-0.4.1.4/Text/PrettyPrint/Mainland.hs 2016-05-02 00:52:51.000000000 +0200
+++ new/mainland-pretty-0.6.1/Text/PrettyPrint/Mainland.hs 2017-06-17 21:05:09.000000000 +0200
@@ -2,7 +2,7 @@
-- Module : Text.PrettyPrint.Mainland
-- Copyright : (c) 2006-2011 Harvard University
-- (c) 2011-2012 Geoffrey Mainland
--- (c) 2015-2016 Drexel University
+-- (c) 2015-2017 Drexel University
-- License : BSD-style
-- Maintainer : mainland@drexel.edu
--
@@ -66,19 +66,15 @@
-- * Document rendering
render, renderCompact,
- displayS, prettyS, pretty,
+ displayS, prettyS, pretty, prettyCompactS, prettyCompact,
displayPragmaS, prettyPragmaS, prettyPragma,
displayLazyText, prettyLazyText,
displayPragmaLazyText, prettyPragmaLazyText,
-- * Document output
- putDoc, putDocLn, hPutDoc, hPutDocLn,
-
- -- * The 'Pretty' type class for pretty printing
- Pretty(..)
+ putDoc, putDocLn, hPutDoc, hPutDocLn
) where
-import Data.Int
import Data.Loc (L(..),
Loc(..),
Located(..),
@@ -97,8 +93,6 @@
import qualified Data.Text.Lazy.IO as TIO
import qualified Data.Text.Lazy as L
import qualified Data.Text.Lazy.Builder as B
-import Data.Word
-import GHC.Real (Ratio(..))
import System.IO (Handle)
-- | The abstract type of documents.
@@ -310,9 +304,11 @@
x <+> Empty = x
x <+> y = x <> space <> y
--- | Concatenates two documents with a 'line' in between.
+-- | Concatenates two documents with a 'line' in between, with identity 'empty'.
(>) :: Doc -> Doc -> Doc
-x > y = x <> line <> y
+Empty > y = y
+x > Empty = x
+x > y = x <> line <> y
-- | Concatenates two documents with a 'softline' in between, with identity
-- 'empty'.
@@ -684,6 +680,14 @@
pretty :: Int -> Doc -> String
pretty w x = prettyS w x ""
+-- | Render and display a document compactly.
+prettyCompactS :: Doc -> ShowS
+prettyCompactS x = displayS (renderCompact x)
+
+-- | Render and convert a document to a 'String' compactly.
+prettyCompact :: Doc -> String
+prettyCompact x = prettyCompactS x ""
+
-- | Display a rendered document with #line pragmas.
displayPragmaS :: RDoc -> ShowS
displayPragmaS = go
@@ -780,10 +784,10 @@
renderPosFile p
renderPosLine :: Pos -> B.Builder
- renderPosLine = go . renderCompact . ppr . posLine
+ renderPosLine = go . renderCompact . int . posLine
renderPosFile :: Pos -> B.Builder
- renderPosFile = go . renderCompact . enclose dquote dquote . ppr . posFile
+ renderPosFile = go . renderCompact . enclose dquote dquote . string . posFile
-- | Render and convert a document to 'L.Text' with #line pragmas. Uses a builder.
prettyPragmaLazyText :: Int -> Doc -> L.Text
@@ -806,214 +810,3 @@
-- followed by a newline.
hPutDocLn :: Handle -> Doc -> IO ()
hPutDocLn h = TIO.hPutStrLn h . prettyLazyText 80
-
-class Pretty a where
-#if __GLASGOW_HASKELL__ >= 708
- {-# MINIMAL pprPrec | ppr #-}
-#endif
- ppr :: a -> Doc
- pprPrec :: Int -> a -> Doc
- pprList :: [a] -> Doc
-
- ppr = pprPrec 0
- pprPrec _ = ppr
- pprList xs = list (map ppr xs)
-
-instance Pretty a => Pretty [a] where
- ppr = pprList
-
-instance Pretty a => Pretty (Maybe a) where
- pprPrec _ Nothing = empty
- pprPrec p (Just a) = pprPrec p a
-
-instance Pretty Bool where
- ppr = bool
-
-instance Pretty Char where
- ppr = char
- pprList = string
-
-instance Pretty Int where
- ppr = int
-
-instance Pretty Integer where
- ppr = integer
-
-instance Pretty Float where
- ppr = float
-
-instance Pretty Double where
- ppr = double
-
-ratioPrec, ratioPrec1 :: Int
-ratioPrec = 7 -- Precedence of ':%' constructor
-ratioPrec1 = ratioPrec + 1
-
-instance (Integral a, Pretty a) => Pretty (Ratio a) where
- {-# SPECIALIZE instance Pretty Rational #-}
- pprPrec p (x:%y) =
- parensIf (p > ratioPrec) $
- pprPrec ratioPrec1 x <+> char '%' <+> pprPrec ratioPrec1 y
-
-instance Pretty Word8 where
- ppr = text . show
-
-instance Pretty Word16 where
- ppr = text . show
-
-instance Pretty Word32 where
- ppr = text . show
-
-instance Pretty Word64 where
- ppr = text . show
-
-instance Pretty Int8 where
- ppr = text . show
-
-instance Pretty Int16 where
- ppr = text . show
-
-instance Pretty Int32 where
- ppr = text . show
-
-instance Pretty Int64 where
- ppr = text . show
-
-instance Pretty T.Text where
- ppr = strictText
-
-instance Pretty L.Text where
- ppr = lazyText
-
-instance Pretty Pos where
- ppr p@(Pos _ l c _) =
- text (posFile p) <> colon <> ppr l <> colon <> ppr c
-
-instance Pretty Loc where
- ppr NoLoc = text "<no location info>"
-
- ppr (Loc p1@(Pos f1 l1 c1 _) p2@(Pos f2 l2 c2 _))
- | f1 == f2 = text (posFile p1) <> colon /> pprLineCol l1 c1 l2 c2
- | otherwise = ppr p1 <> text "-" <> ppr p2
- where
- pprLineCol :: Int -> Int -> Int -> Int -> Doc
- pprLineCol l1 c1 l2 c2
- | l1 == l2 && c1 == c2 = ppr l1 /> colon /> ppr c1
- | l1 == l2 && c1 /= c2 = ppr l1 /> colon />
- ppr c1 <> text "-" <> ppr c2
- | otherwise = ppr l1 /> colon /> ppr c1
- <> text "-" <>
- ppr l2 /> colon /> ppr c2
-
-instance Pretty x => Pretty (L x) where
- pprPrec p (L _ x) = pprPrec p x
-
-instance (Pretty k, Pretty v) => Pretty (Map.Map k v) where
- ppr = pprList . Map.toList
-
-instance Pretty a => Pretty (Set.Set a) where
- ppr = pprList . Set.toList
-
-instance Pretty () where
- ppr () =
- tuple []
-
-instance (Pretty a, Pretty b)
- => Pretty (a, b) where
- ppr (a, b) =
- tuple [ppr a, ppr b]
-
-instance (Pretty a, Pretty b, Pretty c)
- => Pretty (a, b, c) where
- ppr (a, b, c) =
- tuple [ppr a, ppr b, ppr c]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d)
- => Pretty (a, b, c, d) where
- ppr (a, b, c, d) =
- tuple [ppr a, ppr b, ppr c, ppr d]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e)
- => Pretty (a, b, c, d, e) where
- ppr (a, b, c, d, e) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f)
- => Pretty (a, b, c, d, e, f) where
- ppr (a, b, c, d, e, f) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g)
- => Pretty (a, b, c, d, e, f, g) where
- ppr (a, b, c, d, e, f, g) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g, Pretty h)
- => Pretty (a, b, c, d, e, f, g, h) where
- ppr (a, b, c, d, e, f, g, h) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g, ppr h]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g, Pretty h, Pretty i)
- => Pretty (a, b, c, d, e, f, g, h, i) where
- ppr (a, b, c, d, e, f, g, h, i) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g, ppr h, ppr i]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g, Pretty h, Pretty i, Pretty j)
- => Pretty (a, b, c, d, e, f, g, h, i, j) where
- ppr (a, b, c, d, e, f, g, h, i, j) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g, ppr h, ppr i, ppr j]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
- Pretty k)
- => Pretty (a, b, c, d, e, f, g, h, i, j, k) where
- ppr (a, b, c, d, e, f, g, h, i, j, k) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g, ppr h, ppr i, ppr j,
- ppr k]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
- Pretty k, Pretty l)
- => Pretty (a, b, c, d, e, f, g, h, i, j, k, l) where
- ppr (a, b, c, d, e, f, g, h, i, j, k, l) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g, ppr h, ppr i, ppr j,
- ppr k, ppr l]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
- Pretty k, Pretty l, Pretty m)
- => Pretty (a, b, c, d, e, f, g, h, i, j, k, l, m) where
- ppr (a, b, c, d, e, f, g, h, i, j, k, l, m) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g, ppr h, ppr i, ppr j,
- ppr k, ppr l, ppr m]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
- Pretty k, Pretty l, Pretty m, Pretty n)
- => Pretty (a, b, c, d, e, f, g, h, i, j, k, l, m, n) where
- ppr (a, b, c, d, e, f, g, h, i, j, k, l, m, n) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g, ppr h, ppr i, ppr j,
- ppr k, ppr l, ppr m, ppr n]
-
-instance (Pretty a, Pretty b, Pretty c, Pretty d, Pretty e,
- Pretty f, Pretty g, Pretty h, Pretty i, Pretty j,
- Pretty k, Pretty l, Pretty m, Pretty n, Pretty o)
- => Pretty (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) where
- ppr (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) =
- tuple [ppr a, ppr b, ppr c, ppr d, ppr e,
- ppr f, ppr g, ppr h, ppr i, ppr j,
- ppr k, ppr l, ppr m, ppr n, ppr o]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/mainland-pretty-0.4.1.4/mainland-pretty.cabal new/mainland-pretty-0.6.1/mainland-pretty.cabal
--- old/mainland-pretty-0.4.1.4/mainland-pretty.cabal 2016-05-02 00:52:51.000000000 +0200
+++ new/mainland-pretty-0.6.1/mainland-pretty.cabal 2017-06-17 21:05:09.000000000 +0200
@@ -1,15 +1,16 @@
name: mainland-pretty
-version: 0.4.1.4
+version: 0.6.1
cabal-version: >= 1.6
license: BSD3
license-file: LICENSE
copyright: (c) 2006-2011 Harvard University
(c) 2011-2012 Geoffrey Mainland
- (c) 2015-2016 Drexel University
+ (c) 2015-2017 Drexel University
author: Geoffrey Mainland
participants (1)
-
root@hilbert.suse.de