如何检测Haskell管道中的最后一个块？

我有一个小的Haskell Pipe打印出它运行了多少次:

counterPipe :: Pipe String String IO r
counterPipe = go 0
  where
    go n = do
      await >>= yield
      let n' = succ n
      liftIO $ putStrLn $ "Chunk " ++ show n'
      go n'

我希望能够在处理完最后一个块后打印出一条消息,并可能执行其他任务.我该怎么做呢？