order that follows the \tr{Prefix_Form} document.
\begin{code}
-#include "HsVersions.h"
-
module PrefixSyn (
RdrBinding(..),
- SYN_IE(RdrId),
+ RdrId,
RdrMatch(..),
- SYN_IE(SigConverter),
- SYN_IE(SrcFile),
- SYN_IE(SrcFun),
- SYN_IE(SrcLine),
+ SigConverter,
+ SrcFile,
+ SrcFun,
+ SrcLine,
readInteger
) where
-IMP_Ubiq()
-IMPORT_1_3(Char(isDigit))
+#include "HsVersions.h"
import HsSyn
import RdrHsSyn
+import BasicTypes ( IfaceFlavour )
import Util ( panic )
-
-#ifdef REALLY_HASKELL_1_3
-ord = fromEnum :: Char -> Int
-#endif
+import SrcLoc ( SrcLoc )
+import Char ( isDigit, ord )
type RdrId = RdrName
type SrcLine = Int
-- signatures are mysterious; we can't
-- tell if its a Sig or a ClassOpSig,
-- so we just save the pieces:
- | RdrTySig [RdrName] -- vars getting sigs
- RdrNamePolyType -- the type
- SrcLoc
-
- -- user pragmas come in in a Sig-ish way/form...
- | RdrSpecValSig [RdrNameSig]
- | RdrInlineValSig RdrNameSig
- | RdrDeforestSig RdrNameSig
- | RdrMagicUnfoldingSig RdrNameSig
- | RdrSpecInstSig RdrNameSpecInstSig
- | RdrSpecDataSig RdrNameSpecDataSig
-
-type SigConverter = RdrBinding {- a Sig -} -> [RdrNameSig]
+ | RdrSig RdrNameSig
+
+type SigConverter = RdrNameSig -> RdrNameSig
\end{code}
\begin{code}
| RdrMatch_Guards
SrcLine SrcFun
RdrNamePat
- [(RdrNameHsExpr, RdrNameHsExpr)]
+ [([RdrNameStmt], RdrNameHsExpr)]
-- (guard, expr)
RdrBinding
\end{code}