blob: 23bf5d3645e7fa094eba2eb6b6ccc17558a9118c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# LANGUAGE MagicHash, BangPatterns, UnboxedTuples #-}
module ShouldCompile where
import Data.Word
import GHC.Ptr
import GHC.Exts
f# :: Int# -> (# Char#, Int# #)
f# a# = (# '\0'#, a# #)
g :: Int -> (Char, Int)
g (I# a#) = ( C# c#, I# b# )
where !(# c#, b# #) = f# a#
|
