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
import MutableArray
import ByteArray
import Addr
-
+import Int( Num(fromInt) )
+
import Ratio
import Array
import ByteArray
import MutableArray
import ST
+import Int( Num(fromInt) )
import Ratio -- 1.3
import Array -- 1.3
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 |>
>#ifndef __GLASGOW_HASKELL__
> import Trace
>#endif
+> import Int( Num(fromInt) )
\end{comment}
> 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
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)
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