From 708c7a437d2a127dfb5bbd8179643d02c9860f57 Mon Sep 17 00:00:00 2001
From: Christopher Higgs <higgsch@yahoo.com>
Date: Sat, 21 Apr 2018 13:18:58 -0600
Subject: [PATCH] Character type is 'char'

---
 shared/cpsl/examples/function/hanoi.cpsl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/shared/cpsl/examples/function/hanoi.cpsl b/shared/cpsl/examples/function/hanoi.cpsl
index 0359817..6b15b4a 100644
--- a/shared/cpsl/examples/function/hanoi.cpsl
+++ b/shared/cpsl/examples/function/hanoi.cpsl
@@ -1,6 +1,6 @@
 var disks : integer;
 
-procedure moveTower(var disk: integer; source,dest,spare: character);
+procedure moveTower(var disk: integer; source,dest,spare: char);
 begin
 	if(disk=1) then
 		write("Move ",disk," from ",source," to ",dest,'\n');