testsuite/tests/codeGen/should_compile/T8205.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE MagicHash #-}
module T8205 where

import GHC.Exts

data Stack a = Stack a (Stack a)

dropFromStack :: Int# -> Stack a -> Stack a
dropFromStack 0# l = l
dropFromStack n  (x `Stack` xs) = dropFromStack (n -# 1#) xs