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_endpoint.sh | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 make_endpoint.sh (limited to 'make_endpoint.sh') diff --git a/make_endpoint.sh b/make_endpoint.sh new file mode 100644 index 0000000..15dbc17 --- /dev/null +++ b/make_endpoint.sh @@ -0,0 +1,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" -- cgit v1.2.3