crashDoc :: SDoc -> CodeGen a
crashDoc sdoc = do
  debugDoc sdoc
  error "crash"
crashDoc :: SDoc -> CodeGen a
crashDoc sdoc = do
  debugDoc sdoc
  error "crash"
crashDoc sdoc = do
  debugDoc sdoc
  error "crash"