make_endpoint.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14

touch ./src/Endpoints/$1Endpoint.hs
echo "{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}

module Endpoints.$1Endpoint ($1API, handle$1) where

import Servant
import Data.$1Data

type $1API = \"\" :> ... '[JSON] $1

handle$1 :: Handler $1
handle$1 =" > ./src/Endpoints/$1Endpoint.hs
echo "Created $1Endpoint.hs"