benchmarks :: [Benchmark]
benchmarks = [
    bench "length.show" (whnf (T.length . showt) l)
  , bench "show" (whnf showt l)
  ]
  where
    l = Location {
        locTitle = "Your Bedroom"
      , locDescription = T.pack $ unlines [
          "You're in your bedroom. It's an utterly disgusting tip of a place. ",
          "Dirty coffee mugs everywhere, bits of computer and motorbike all ",
          "over the floor. It's an outrage. You can leave by going north, and ",
          "maybe you should."
        ]
      , locItems = []
      }
benchmarks :: [Benchmark]
benchmarks = [
    bench "length.show" (whnf (T.length . showt) l)
  , bench "show" (whnf showt l)
  ]
  where
    l = Location {
        locTitle = "Your Bedroom"
      , locDescription = T.pack $ unlines [
          "You're in your bedroom. It's an utterly disgusting tip of a place. ",
          "Dirty coffee mugs everywhere, bits of computer and motorbike all ",
          "over the floor. It's an outrage. You can leave by going north, and ",
          "maybe you should."
        ]
      , locItems = []
      }
benchmarks = [
    bench "length.show" (whnf (T.length . showt) l)
  , bench "show" (whnf showt l)
  ]
  where
    l = Location {
        locTitle = "Your Bedroom"
      , locDescription = T.pack $ unlines [
          "You're in your bedroom. It's an utterly disgusting tip of a place. ",
          "Dirty coffee mugs everywhere, bits of computer and motorbike all ",
          "over the floor. It's an outrage. You can leave by going north, and ",
          "maybe you should."
        ]
      , locItems = []
      }