testsuite/tests/typecheck/should_fail/T13610.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE MagicHash #-}

module T13610 where

import GHC.Exts
import GHC.Types

main = do
    let primDouble = 0.42## :: Double#
    let double = 0.42 :: Double
    IO (\s -> mkWeakNoFinalizer# double () s)