[Haskell-cafe] Yesos forms and types with foreign keys