[set buffering properly
Evan Martin <martine@danga.com>**20060217044604] {
hunk ./MPDMate.hs 39
-      handle_pm <- openBinaryFile pmd ReadWriteMode
+      handle_pm <- PowerMate.openDevice pmd
hunk ./PowerMate.hsc 7
-  searchForDevice,
-  readEvent,
-  readEventWithSkip,
+  searchForDevice, openDevice,
+  readEvent, readEventWithSkip,
hunk ./PowerMate.hsc 72
+
+openDevice :: FilePath -> IO Handle
+openDevice file = do
+  handle <- openBinaryFile file ReadWriteMode
+  hSetBuffering handle NoBuffering
+  return handle
}