blob: e574fc4c1c19c3bef08daf9a6bd57b2cded9697a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -optP -C -optP -ffreestanding #-}
#define A 'a'
main :: IO ()
main = putStrLn [A,
-- CPP treats this as the beginning of a multiline C-style comment: /usr/local/*
'b',
-- And */ close it. By passing `-optP -C` we tell CPP not to delete it.
'c']
|
