Error: Improperly terminated character constant

I'm writing a function dRop to accept words ending in 'es' and drop the last two characters i.e. 'es'.eg. mangoes -> mongo but i keep on getting this error: "Improperly terminated character constant" after running this code which i have left below. Can i get any form of help from anyone in here...?
 
 
-----------------------------------------
 
dRop :: String -> String
dRop word = if  drop (length word - 2) word == 'es'
                     then take (length word - 2) word
                     else word
 
--------------------------------------------------
 
regards

 

---

Connect to the next generation of MSN Messenger  Get it now!
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@...
http://www.haskell.org/mailman/listinfo/haskell-cafe