[add eqSingleChar 
John Meacham <john@repetae.net>**20061219051339] hunk ./lib/base/Jhc/String.hs 7
+    eqSingleChar,
hunk ./lib/base/Jhc/String.hs 67
+eqSingleChar :: Char__ -> [Char] -> Bool__
+eqSingleChar ch (c:cs) = case equalsChar ch (unbox c) of
+    0# -> 0#
+    1# -> case cs of
+        [] -> 1#
+        _ -> 0#
+