blob: fc0fbe8c9ec363a270c0626b644c541099834082 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- See Trac #11098
:set -XTemplateHaskell
:set -XNamedWildCards
:set -XScopedTypeVariables
:m +Data.Char
:m +Language.Haskell.TH
runQ [d|foo :: a -> a;foo x = x|]
runQ $ fmap (filter (not . isDigit) . show) [d|foo :: _a -> _a; foo x = x|]
runQ [d|foo :: forall _a . _a -> _a ; foo x = x|]
|
