haskell-tools-builtin-refactorings-1.0.0.0: examples/Refactor/RenameDefinition/Constructor.hs

module Refactor.RenameDefinition.Constructor where

data Point = Point Double Double

distance :: Point -> Point -> Double
distance (Point x1 y1) (Point x2 y2) = sqrt ((x1 - x2) ^ 2 + (y1 - y2) ^ 2)