Fail: GameState.hs:96: Irrefutable pattern failed for pattern ('#' GHC.Base.: s') real 0m1.183s user 0m0.030s sys 0m0.010s