path: root/testsuite/tests/deSugar/should_run/T8952.hs

{-# LANGUAGE BangPatterns #-}

module Main where

main = print (case Nothing of
                  !(~(Just x)) -> "ok"
                  Nothing   -> "bad")