path: root/testsuite/tests/typecheck/should_fail/T2806.hs

{-# LANGUAGE MagicHash #-}

-- Trac #2806

module Foo where

import GHC.Base

foo :: Int
foo = 3
    where (I# _x) = 4