diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-23 16:11:15 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-23 16:11:15 +0000 |
| commit | 6821c8a47c0fc61a2d989d368f926cc0ded776e9 (patch) | |
| tree | 20a9176e28577a0909cb7fb63320bb34616455a8 /compiler/prelude | |
| parent | 1cd9b26ddbc76e67f680b4f58e3452c6708503f1 (diff) | |
| download | haskell-6821c8a47c0fc61a2d989d368f926cc0ded776e9.tar.gz | |
Add 123## literals for Word#
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/TysWiredIn.lhs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/compiler/prelude/TysWiredIn.lhs b/compiler/prelude/TysWiredIn.lhs index 7606ff6d63..ccdfbe2b84 100644 --- a/compiler/prelude/TysWiredIn.lhs +++ b/compiler/prelude/TysWiredIn.lhs @@ -28,6 +28,8 @@ module TysWiredIn ( intTyCon, intDataCon, intTyCon_RDR, intDataCon_RDR, intTyConName, intTy, + wordTyCon, wordDataCon, wordTyConName, wordTy, + listTyCon, nilDataCon, consDataCon, listTyCon_RDR, consDataCon_RDR, listTyConName, mkListTy, @@ -352,6 +354,16 @@ intDataCon = pcDataCon intDataConName [] [intPrimTy] intTyCon \end{code} \begin{code} +wordTy :: Type +wordTy = mkTyConTy wordTyCon + +wordTyCon :: TyCon +wordTyCon = pcNonRecDataTyCon wordTyConName [] [wordDataCon] +wordDataCon :: DataCon +wordDataCon = pcDataCon wordDataConName [] [wordPrimTy] wordTyCon +\end{code} + +\begin{code} floatTy :: Type floatTy = mkTyConTy floatTyCon |