moved color functions to Color.hs