make_data.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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"