blob: df52f7b232c3cec85e79cfe3ddae8a9a2b7b1ab9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{-# LANGUAGE MagicHash, TemplateHaskell #-}
module Main where
import GHC.Exts
import T10704a
main :: IO ()
main = do
putStrLn $(fixityExp ''(->))
putStrLn $(fixityExp ''Show)
putStrLn $(fixityExp 'show)
putStrLn $(fixityExp '(+))
putStrLn $(fixityExp ''Int)
putStrLn $(fixityExp ''Item)
putStrLn $(fixityExp ''Char#)
putStrLn $(fixityExp 'Just)
putStrLn $(fixityExp 'seq)
putStrLn $(fixityExp '($))
putStrLn $(fixityExp ''(:=>))
putStrLn $(fixityExp ''(:+:))
putStrLn $(fixityExp ''(:*:))
putStrLn $(fixityExp ''(:%:))
putStrLn $(fixityExp ''(:?:))
putStrLn $(fixityExp ''(:@:))
|
