Contract Developer Course 1: Advanced Fundamentals | Functional Programming - 2

TypeExample.daml

-- Contract Developer Course 1: Advanced Fundamentals | Functional Programming - 2
-- https://www.youtube.com/watch?v=WkIiH3IBo8U

module TypeExample where

import Daml.Script

data PersonnelType = Active | Inactive
        deriving (Eq, Show)

data PersonnelRecord = PersonnelRecord with
    name: Text
    age: Int
    typ: PersonnelType

class Concatable a where
    pr_concat : a -> a -> Text

instance Concatable PersonnelRecord where
    pr_concat (PersonnelRecord n1 a1 t1) (PersonnelRecord n2 a2 t2) = n1<>","<>(show a1)<>(if t1 == Active then "* "  else "  ")<>n2<>","<>(show a2)<>(if t2 == Active then "* "  else "  ")

mainScenario = script do
    let
        pr1 = PersonnelRecord with
            name = "Alice"
            age = 30
            typ = Active
        pr2 = PersonnelRecord with
            name = "Bob"
            age = 40
            typ = Inactive
    debug $ pr_concat pr1 pr2
    

-- Script Result
----------------
-- Transactions: 
-- 
-- Active contracts: 
-- 
-- Return value: {}
-- 
-- Trace: 
--   "Alice,30* Bob,40  "