packages feed

tilia-0.1.0.0: corpora/vendored/other/cpp/macro-continuing-the-line-above.hs

{-# LANGUAGE CPP #-}

module Queue.Chan where

#define STRICT(x) {-# UNPACK #-} !(x)

data Chan a = Chan STRICT(Int)
                   STRICT([a])
  deriving (Eq)