module Phi.Types ( Position(..) , Color ) where data Position = Top | Bottom type Color = (Double, Double, Double, Double)