From e4caca6f19f4e2b52c9bec804cefb225fbaa5ffe Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 4 Nov 2019 14:27:12 -0500 Subject: [PATCH] Add Record to Domain. --- semantic-analysis/src/Analysis/Domain.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/semantic-analysis/src/Analysis/Domain.hs b/semantic-analysis/src/Analysis/Domain.hs index 3c5e24146..8250e0cbb 100644 --- a/semantic-analysis/src/Analysis/Domain.hs +++ b/semantic-analysis/src/Analysis/Domain.hs @@ -4,8 +4,9 @@ module Analysis.Domain import Data.Text (Text) -data Domain +data Domain name a = Unit | Bool Bool | String Text + | Record [(name, a)] deriving (Eq, Ord, Show)