我有一个这样的代数数据类型： type Keyword = Text data DBField = (:=) Keyword DBVal deriving (Show, Read, Eq) data DBVal = VNull | VIn……