module Field3 where {-Rename 'absPoint' to 'abs'. The use of 'abs' in the 'main' function should become qualified. -} data Point = Pt {pointx, pointy :: Float} abs :: Point -> Float abs p = sqrt (pointx p * pointx p + pointy p * pointy p) main = Field3.abs (Pt 1 2)