From 4efb6ede36e9a15336b5390864838464547f289b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 12 Jan 2001 12:35:54 +0000
Subject: [PATCH] [project @ 2001-01-12 12:35:54 by simonmar] fix some bogus
 conversions.

---
 ghc/lib/std/PrelInt.lhs |   13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/ghc/lib/std/PrelInt.lhs b/ghc/lib/std/PrelInt.lhs
index 1143e0c..28f2ca5 100644
--- a/ghc/lib/std/PrelInt.lhs
+++ b/ghc/lib/std/PrelInt.lhs
@@ -100,14 +100,13 @@ integerToInt8  = fromInteger
 integerToInt16 = fromInteger
 integerToInt32 = fromInteger
 
-int8ToInt16  (I8#  x) = I16# x
-int8ToInt32  (I8#  x) = I32# x
+int8ToInt16    = intToInt16 . int8ToInt
+int8ToInt32    = intToInt32 . int8ToInt
+int16ToInt32   = intToInt32 . int16ToInt
 
-int16ToInt8  (I16# x) = I8#  x
-int16ToInt32 (I16# x) = I32# x
-
-int32ToInt8  (I32# x) = I8#  x
-int32ToInt16 (I32# x) = I16# x
+int16ToInt8  (I16# x) = I8#  (intToInt8# x)
+int32ToInt8  (I32# x) = I8#  (intToInt8# x)
+int32ToInt16 (I32# x) = I16# (intToInt16# x)
 
 int8ToInteger  = toInteger
 int8ToInt64    = int32ToInt64 . int8ToInt32
-- 
1.7.10.4