AlphaBeta (chess) in Haskell

Hello. Does anyone know of a AlphaBeta/Minimax module for haskell, and / or a chess module? I've found several references on the web, but no code. There are little examples in whyfp paper and in some other Haskell related paper, but both are far from complete. Also, I've found a reference to a working mate-problem solver which was used for HAT testing, but also, no code. Maybe someone has something already working which could be used as a basis. My plan is to provide a generic AlphaBeta module which could be used for different kind of two-player games. -- Thanks, Mario