There is at least one: Scrive. Their codebase is almost completely Haskell. I think the only other language they use is Javascript for web stuff (but their web apps are built with Happstack).

https://scrive.com