assignment-13/Arduino.icl


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

implementation module Arduino

import StdOverloaded

import Util

instance toString Button
where
	toString B0 = "B0"
	toString B1 = "B1"
	toString B2 = "B2"
	toString B3 = "B3"
	toString B4 = "B4"
	toString B5 = "B5"

instance print Button where print b = print (toString b)