Added A* search implementation in haskell