From: Ian Lynagh <igloo@earth.li>
Date: Wed, 6 Aug 2008 19:15:54 +0000 (+0000)
Subject: Move Int, Float and Double into ghc-prim:GHC.Types
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=80b3ca0899c2ae75f78c0060ece461538fd70017;p=ghc-base.git

Move Int, Float and Double into ghc-prim:GHC.Types
---

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index b18215b..5eb4314 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -633,11 +633,6 @@ eqString _        _        = False
 %*********************************************************
 
 \begin{code}
-data Int = I# Int#
--- ^A fixed-precision integer type with at least the range @[-2^29 .. 2^29-1]@.
--- The exact range for a given implementation can be determined by using
--- 'Prelude.minBound' and 'Prelude.maxBound' from the 'Prelude.Bounded' class.
-
 zeroInt, oneInt, twoInt, maxInt, minInt :: Int
 zeroInt = I# 0#
 oneInt  = I# 1#
diff --git a/GHC/Float.lhs b/GHC/Float.lhs
index b7fa3af..1ca9638 100644
--- a/GHC/Float.lhs
+++ b/GHC/Float.lhs
@@ -18,7 +18,8 @@
 #include "ieee-flpt.h"
 
 -- #hide
-module GHC.Float( module GHC.Float, Float#, Double# )  where
+module GHC.Float( module GHC.Float, Float(..), Double(..), Float#, Double# )
+    where
 
 import Data.Maybe
 
@@ -141,25 +142,6 @@ class  (RealFrac a, Floating a) => RealFloat a  where
 
 %*********************************************************
 %*                                                      *
-\subsection{Type @Integer@, @Float@, @Double@}
-%*                                                      *
-%*********************************************************
-
-\begin{code}
--- | Single-precision floating point numbers.
--- It is desirable that this type be at least equal in range and precision
--- to the IEEE single-precision type.
-data Float      = F# Float#
-
--- | Double-precision floating point numbers.
--- It is desirable that this type be at least equal in range and precision
--- to the IEEE double-precision type.
-data Double     = D# Double#
-\end{code}
-
-
-%*********************************************************
-%*                                                      *
 \subsection{Type @Float@}
 %*                                                      *
 %*********************************************************