Commit 467bd515 authored by qrczak's avatar qrczak
Browse files

[project @ 2001-04-14 22:28:22 by qrczak]

Cosmetics.
parent 8c99af6a
% -----------------------------------------------------------------------------
% $Id: PrelBase.lhs,v 1.44 2001/04/03 15:05:52 simonmar Exp $
% $Id: PrelBase.lhs,v 1.45 2001/04/14 22:28:22 qrczak Exp $
%
% (c) The University of Glasgow, 1992-2000
%
......@@ -632,7 +632,7 @@ gtInt, geInt, eqInt, neInt, ltInt, leInt :: Int -> Int -> Bool
#if WORD_SIZE_IN_BYTES == 4
{-# RULES
"intToInt32#" forall x#. intToInt32# x# = x#
"intToInt32#" forall x#. intToInt32# x# = x#
"wordToWord32#" forall x#. wordToWord32# x# = x#
#-}
#endif
......
......@@ -466,7 +466,6 @@ foreign import "stg_remInt64" unsafe remInt64# :: Int64# -> Int64# ->
foreign import "stg_intToInt64" unsafe intToInt64# :: Int# -> Int64#
foreign import "stg_int64ToInt" unsafe int64ToInt# :: Int64# -> Int#
foreign import "stg_wordToWord64" unsafe wordToWord64# :: Word# -> Word64#
foreign import "stg_word64ToWord" unsafe word64ToWord# :: Word64# -> Word#
foreign import "stg_int64ToWord64" unsafe int64ToWord64# :: Int64# -> Word64#
foreign import "stg_word64ToInt64" unsafe word64ToInt64# :: Word64# -> Int64#
foreign import "stg_and64" unsafe and64# :: Word64# -> Word64# -> Word64#
......
% ------------------------------------------------------------------------------
% $Id: PrelList.lhs,v 1.23 2001/02/26 09:29:32 simonpj Exp $
% $Id: PrelList.lhs,v 1.24 2001/04/14 22:28:22 qrczak Exp $
%
% (c) The University of Glasgow, 1994-2000
%
......@@ -515,7 +515,7 @@ I'm going to leave it though.
zip takes two lists and returns a list of corresponding pairs. If one
input list is short, excess elements of the longer list are discarded.
zip3 takes three lists and returns a list of triples. Zips for larger
tuples are in the List library
tuples are in the List module.
\begin{code}
----------------------------------------------
......
% ------------------------------------------------------------------------------
% $Id: PrelNum.lhs,v 1.38 2001/03/29 13:55:01 simonmar Exp $
% $Id: PrelNum.lhs,v 1.39 2001/04/14 22:28:22 qrczak Exp $
%
% (c) The University of Glasgow, 1994-2000
%
......@@ -437,11 +437,11 @@ jtos n cs
| otherwise = jtos' n cs
where
jtos' :: Integer -> String -> String
jtos' n cs
| n < 10 = case unsafeChr (ord '0' + fromInteger n) of
c@(C# _) -> c:cs
jtos' n' cs'
| n' < 10 = case unsafeChr (ord '0' + fromInteger n') of
c@(C# _) -> c:cs'
| otherwise = case unsafeChr (ord '0' + fromInteger r) of
c@(C# _) -> jtos' q (c:cs)
c@(C# _) -> jtos' q (c:cs')
where
(q,r) = n `quotRemInteger` 10
(q,r) = n' `quotRemInteger` 10
\end{code}
% -----------------------------------------------------------------------------
% $Id: PrelStorable.lhs,v 1.5 2001/04/13 21:37:43 panne Exp $
% $Id: PrelStorable.lhs,v 1.6 2001/04/14 22:28:22 qrczak Exp $
%
% (c) The FFI task force, 2000
%
......@@ -24,7 +24,6 @@ module PrelStorable
\end{code}
\begin{code}
import Char ( chr, ord )
import Monad ( liftM )
#ifdef __GLASGOW_HASKELL__
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment