[Haskell-cafe] My knight's tour does not seem to end

Hi, I tried an implementation of knight's tour and it does not seem to terminate. I am looking for some feedback on algorithm and Haskellness of my implementation (knight.hs attached). -- Regards, Kashyap