Point

module Point
    (
        Point,
        createPoint,
        getX,
        getY
    ) where

data Point = Point Double Double deriving (Show)

createPoint :: Double -> Double -> Point
createPoint x y = Point x y

getX :: Point -> Double
getX (Point x y) = x

getY :: Point -> Double
getY (Point x y) = y