projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add GHC.HetMet.{hetmet_kappa,hetmet_kappa_app}
[ghc-base.git]
/
GHC
/
Show.lhs
diff --git
a/GHC/Show.lhs
b/GHC/Show.lhs
index
2c673a8
..
bbfe458
100644
(file)
--- a/
GHC/Show.lhs
+++ b/
GHC/Show.lhs
@@
-1,7
+1,7
@@
\begin{code}
\begin{code}
-{-# LANGUAGE BangPatterns #-}
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash, StandaloneDeriving #-}
{-# OPTIONS_HADDOCK hide #-}
{-# OPTIONS_HADDOCK hide #-}
+
-----------------------------------------------------------------------------
-- |
-- Module : GHC.Show
-----------------------------------------------------------------------------
-- |
-- Module : GHC.Show
@@
-38,6
+38,8
@@
module GHC.Show
import GHC.Base
import Data.Maybe
import GHC.List ((!!), foldr1, break)
import GHC.Base
import Data.Maybe
import GHC.List ((!!), foldr1, break)
+-- For defining instances for the generic deriving mechanism
+import GHC.Generics (Arity(..), Associativity(..), Fixity(..))
\end{code}
\end{code}
@@
-429,3
+431,10
@@
itos n# cs
itos' (x# `quotInt#` 10#) (C# c# : cs') }
\end{code}
itos' (x# `quotInt#` 10#) (C# c# : cs') }
\end{code}
+Instances for types of the generic deriving mechanism.
+
+\begin{code}
+deriving instance Show Arity
+deriving instance Show Associativity
+deriving instance Show Fixity
+\end{code}