23 lines
410 B
Haskell
23 lines
410 B
Haskell
module ChuSQL.Model where
|
|
|
|
-- 列的值：整数、字符串、布尔
|
|
data Value
|
|
= VInt Int
|
|
| VStr String
|
|
| VBool Bool
|
|
deriving (Show, Eq)
|
|
|
|
-- 一行：列名 → 值
|
|
type Row = [(String, Value)]
|
|
|
|
-- 一张表
|
|
data Table = Table
|
|
{ tableName :: String
|
|
, tableCols :: [String]
|
|
, tableRows :: [Row]
|
|
}
|
|
deriving (Show)
|
|
|
|
-- 数据库：多张表
|
|
type Database = [(String, Table)]
|