Commit ddddb042 authored by simonpj's avatar simonpj

[project @ 1999-11-01 16:07:48 by simonpj]

fromInt stuff and other wibbles
parent 98eb01d1
cc001.hs:5:
Ambiguous type variable(s) `t'
in the constraint `CCallable t'
arising from an argument in the _ccall_ to `foo', namely `(undefined ())' at cc001.hs:5
Ambiguous type variable(s) `t' in the constraint `CCallable t'
arising from an argument in the _ccall_ to `foo', namely `(undefined ())' at cc001.hs:5
In the right-hand side of a pattern binding:
_ccall_ foo (undefined ())
Compilation had errors
cc002.hs:10:
No instance for `CReturnable ForeignObj'
arising from the result of the _ccall_ to `a' at cc002.hs:10
arising from the result of the _ccall_ to `a' at cc002.hs:10
In the right-hand side of a pattern binding: _ccall_ a
Compilation had errors
......@@ -8,7 +8,8 @@ import IOExts
import MutableArray
import ByteArray
import Addr
import Int( Num(fromInt) )
import Ratio
import Array
......
......@@ -7,6 +7,7 @@ import IOExts
import ByteArray
import MutableArray
import ST
import Int( Num(fromInt) )
import Ratio -- 1.3
import Array -- 1.3
......
......@@ -3,6 +3,7 @@ module Main(main) where
import Exception
import Word
import Int( Num(fromInt) )
main = do
putStrLn "Testing Enum Word8:"
......
#-----------------------------------------------------------------------------
# $Id: Makefile,v 1.5 1999/05/10 10:12:25 simonm Exp $
# $Id: Makefile,v 1.6 1999/11/01 16:07:50 simonpj Exp $
TOP = ../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/should_run.mk
HC_OPTS += -dcore-lint
arith006_HC_OPTS += -fglasgow-exts
arith010_HC_OPTS += -fglasgow-exts
arith011_HC_OPTS += -fglasgow-exts
arith012_HC_OPTS += -fglasgow-exts
......
-- !!! printing Floats; was a bug in hbc (reported by andy)
--
import Int( Num(fromInt) )
main = print ((fromInt 42) :: Float)
{-# OPTIONS -H12m #-}
{-# OPTIONS -H12m -syslib exts #-}
module Basic where
import TypesettingTricks
import Int( Num(fromInt) )
import Physical
--import GHC( (->) )
infixr 7 |>
......
......@@ -4,6 +4,7 @@
>#ifndef __GLASGOW_HASKELL__
> import Trace
>#endif
> import Int( Num(fromInt) )
\end{comment}
......
......@@ -6,6 +6,7 @@
> import Trace
> import Maybe -- an hbc library module defining the ``Maybe'' type
>#endif
> import Int( Num(fromInt) )
> import Native -- an hbc library module for native-mode binary IO
......
TOP = ..
include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -syslib misc
SRC_HC_OPTS += -cpp -syslib misc -syslib exts
all :: runtest
......
......@@ -10,6 +10,7 @@
import Word;
import Complex; -- 1.3
import Array; -- 1.3
import Int ( Num(fromInt) );
type Complex_type = Complex Double;
type Array_type b = Array Int b;
type Assoc_type a = (Int, a);
......
{-# OPTIONS -syslib exts #-}
module Main(main) where
import Int( Num(fromInt) )
newtype RNG_State = RNG_State (Int, Int, Int)
new_random i = RNG_State (i `mod` 30269, i `mod` 30307, i `mod` 30323)
......
......@@ -7,6 +7,7 @@ SRC_HC_OPTS += -noC -dcore-lint -fno-warn-incomplete-patterns -hi-with-declarati
tc019_HC_OPTS = -fglasgow-exts
tc065_HC_OPTS = -syslib misc
tc087_HC_OPTS = -fglasgow-exts
tc088_HC_OPTS = -syslib exts
tc089_HC_OPTS = -H12m
tc097_HC_OPTS = -fglasgow-exts
tc100_HC_OPTS = -O
......
-- Check that "->" is an instance of Eval
module ShouldSucceed where
import Int( Num(fromInt) )
instance Show (a->b)
......
tcfail003.hs:3:
No instance for `Num Char'
arising from the literal `1' at tcfail003.hs:3
arising from the literal `1' at tcfail003.hs:3
In the list element: 1
In the right-hand side of a pattern binding: [1, 'a']
Compilation had errors
Markdown is supported
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