testsuite/tests/printer/Ppr009.hs


1
2
3
4
5
6
7
8
9

module Ppr009 where


{-# INLINE strictStream #-}
strictStream (Bitstream l v)
    = {-# CORE "Strict Bitstream stream" #-}
      S.concatMap stream (GV.stream v)
      `S.sized`
      Exact l