hasWon:: Board->Color->Bool
hasWon (Board map) color = Prelude.or (Prelude.map (\coords -> (checkAllDirections coords listOfCoordinates)) listOfCoordinates)
    where
        isFiveInDirection howMany (Coordinates x y) listOfCoordinates (xTranslation, yTranslation)
            | ((Coordinates x y) `elem` listOfCoordinates) = True && (isFiveInDirection (howMany+1) (Coordinates (x+xTranslation) (y+yTranslation)) listOfCoordinates (xTranslation, yTranslation))
            | ((Coordinates x y) `elem` listOfCoordinates) && howMany==5 = True
            | otherwise = False
        checkAllDirections coords listOfCoordinates = Prelude.any (isFiveInDirection 1 coords listOfCoordinates) [(x,y)| x<-[-1..1], y<-[-1..1], x/=0 && y/=0]
        listOfCoordinates = [coords | coords <- Map.keys map, fromJust (Map.lookup coords map) == color]