Field3.hs.expected

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)