evalTR c _ sr QRAllNonFloatTiles =
  concatMap (keys . laTiles . spLayout)
  $ maybeToList
  $ lookup sr
  $ cSpaces c
evalTR c _ sr QRAllNonFloatTiles =
  concatMap (keys . laTiles . spLayout)
  $ maybeToList
  $ lookup sr
  $ cSpaces c
evalTR c _ sr QRAllNonFloatTiles =
  concatMap (keys . laTiles . spLayout)
  $ maybeToList
  $ lookup sr
  $ cSpaces c