Update Haskell sample AI. Fix #236.