[don't pattern match on negative number
John Meacham <john@repetae.net>**20061206061305] hunk ./lib/base/Prelude/IO.hs 122
-    case ch of
-        -1 -> fail "End of file."
-        _ -> return (cwintToChar ch)
+    if ch == -1 then fail "End of file." else return (cwintToChar ch)
hunk ./lib/base/Prelude/IO.hs 132
+foreign import primitive "const.WEOF" c_WEOF :: CWint
+