lib/Phi/Types.hs


1
2
3
4
5
6
7
8

module Phi.Types ( Position(..)
                 , Color
                 ) where


data Position = Top | Bottom

type Color = (Double, Double, Double, Double)