Commit 2abbfca4 authored by simonm's avatar simonm
Browse files

[project @ 1997-12-19 15:07:35 by simonm]

add test for getWorkerIdAndCons bug.
parent 7f0f325c
...@@ -2,6 +2,8 @@ TOP = ../.. ...@@ -2,6 +2,8 @@ TOP = ../..
include $(TOP)/mk/boilerplate.mk include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/should_compile.mk include $(TOP)/mk/should_compile.mk
HC_OPTS += -noC -O -dcore-lint SRC_HC_OPTS += -noC -O -dcore-lint
str001_HC_OPTS = -hi
include $(TOP)/mk/target.mk include $(TOP)/mk/target.mk
module ShouldSucceed where
{-# OPTIONS -O #-}
newtype Num a => Point2 a = Point2 (a,a)
area2 :: Num a => Point2 a -> Point2 a -> Point2 a -> a
area2 (Point2 (px,py)) (Point2 (qx,qy)) (Point2 (rx,ry))
= (px-qx) * (py-ry) - (py-qy) * (px-rx)
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