sameDirection :: Direction -> Point -> Point -> Bool
sameDirection direction point1 point2
    | direction == findDirection point1 point2 = True
    | otherwise                                = False
sameDirection :: Direction -> Point -> Point -> Bool
sameDirection direction point1 point2
    | direction == findDirection point1 point2 = True
    | otherwise                                = False
sameDirection direction point1 point2
    | direction == findDirection point1 point2 = True
    | otherwise                                = False