From 2b48a574e8b9fed03a5c1969af4bb1e338f1be26 Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Sun, 7 Dec 2025 06:36:43 +0100 Subject: implemented section 1-3 --- make_data.sh | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 make_data.sh (limited to 'make_data.sh') diff --git a/make_data.sh b/make_data.sh new file mode 100644 index 0000000..d35302c --- /dev/null +++ b/make_data.sh @@ -0,0 +1,18 @@ +echo "{-# LANGUAGE DeriveGeneric #-} + +module Data.$1Data ($1, make$1) where + +import Data.Aeson +import Data.Aeson.TH +import GHC.Generics (Generic) + +data $1 = $1 + { + } deriving (Eq, Show, Generic) + +instance FromJSON $1 where +instance ToJSON $1 where + +make$1 :: -> $1 +make$1 = $1" > ./src/Data/$1Data.hs +echo "Created $1Data.hs" -- cgit v1.2.3