Item
    kind Text
    normKind Text
    bought ItemDate
    expires ItemDate
    opened ItemDate
    runningLow Bool default=false
    Foreign Kind fkType normKind
    deriving Show Eq
Reference
    normKind Text
    kind Text
    UniqueRefKind normKind
    Foreign Kind fkType normKind
    deriving Show Eq Ord
Kind
    normKind Text
    type Text
    Primary normKind
    UniqueKind normKind
    deriving Show Eq