implementation module uFPL.Arduino import StdOverloaded import uFPL.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)