projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
IGArrow: major cleanup, finished instance IKappa (->)
[ghc-base.git]
/
GHC
/
Read.lhs
diff --git
a/GHC/Read.lhs
b/GHC/Read.lhs
index
77daece
..
6305276
100644
(file)
--- a/
GHC/Read.lhs
+++ b/
GHC/Read.lhs
@@
-1,5
+1,5
@@
\begin{code}
\begin{code}
-{-# LANGUAGE CPP, NoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, StandaloneDeriving #-}
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
@@
-72,6
+72,8
@@
import GHC.Float ()
import GHC.Show
import GHC.Base
import GHC.Arr
import GHC.Show
import GHC.Base
import GHC.Arr
+-- For defining instances for the generic deriving mechanism
+import GHC.Generics (Arity(..), Associativity(..), Fixity(..))
\end{code}
\end{code}
@@
-680,3
+682,10
@@
readp :: Read a => ReadP a
readp = readPrec_to_P readPrec minPrec
\end{code}
readp = readPrec_to_P readPrec minPrec
\end{code}
+Instances for types of the generic deriving mechanism.
+
+\begin{code}
+deriving instance Read Arity
+deriving instance Read Associativity
+deriving instance Read Fixity
+\end{code}
\ No newline at end of file