hypsrc-test/src/ClangCppBug.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{-# LANGUAGE CPP #-}
module ClangCppBug where

foo :: Int
foo = 1

-- Clang doesn't mind these:
#define BAX 2
{-# INLINE bar #-}

bar :: Int
bar = 3

-- But it doesn't like this:
{-# RULES
"bar/qux" bar = qux
"qux/foo" qux = foo
  #-}

qux :: Int
qux = 88