testsuite/tests/deSugar/should_run/T11193.hs


1
2
3
4
5
6
7
8

{-# LANGUAGE Strict #-}

module Main where

main = do
  ~a <- return (error "don't error here!")
  b <- return (error "error here!") -- this binding should be strict
  print "should never reach here"