findDirection :: Point -> Point -> Direction
findDirection (x, y) (x1, y1)
    | (slope == hori) && (x1 >= x)  = right
    | (slope == hori) && (x1 < x)   = left
    | (slope == verti) && (y1 >= y) = up
    | otherwise                     = down
    where
        slope = getSlope (x, y) (x1, y1)
findDirection :: Point -> Point -> Direction
findDirection (x, y) (x1, y1)
    | (slope == hori) && (x1 >= x)  = right
    | (slope == hori) && (x1 < x)   = left
    | (slope == verti) && (y1 >= y) = up
    | otherwise                     = down
    where
        slope = getSlope (x, y) (x1, y1)
findDirection (x, y) (x1, y1)
    | (slope == hori) && (x1 >= x)  = right
    | (slope == hori) && (x1 < x)   = left
    | (slope == verti) && (y1 >= y) = up
    | otherwise                     = down
    where
        slope = getSlope (x, y) (x1, y1)