[expose status messages
Evan Martin <martine@danga.com>**20060217055447] {
hunk ./PowerMate.hsc 79
-data Event = Button Bool | Rotate Int | Misc
+data Event = Button Bool | Rotate Int | StatusChange Status
hunk ./PowerMate.hsc 85
-decodeEvent (#{const EV_MSC}, _, _) = Just $ Misc
+decodeEvent (#{const EV_MSC}, _, value) = Just $ StatusChange (decodePulseLED value)
}