diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-02-24 18:57:51 +0200 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2017-02-24 18:59:26 +0200 |
| commit | 9b859ef0077972e8e37e29c546bf587fd9f65e4c (patch) | |
| tree | b5890f87798ddfc5ac5c0c3f8707648cf3a9b7f9 /compiler/parser | |
| parent | 67c2e076c615acc91250e50fbb5f8c24961d4d9e (diff) | |
| download | haskell-9b859ef0077972e8e37e29c546bf587fd9f65e4c.tar.gz | |
Make SCCFunSig tag Located for ghc-exactprint
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Parser.y | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index 92e32322b1..c6a8e48c77 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -2275,7 +2275,7 @@ sigdecl :: { LHsDecl RdrName } | '{-# SCC' qvar STRING '#-}' {% do { scc <- getSCC $3 ; let str_lit = StringLiteral (getSTRINGs $3) scc - ; ams (sLL $1 $> (SigD (SCCFunSig (getSCC_PRAGs $1) $2 (Just str_lit)))) + ; ams (sLL $1 $> (SigD (SCCFunSig (getSCC_PRAGs $1) $2 (Just ( sL1 $3 str_lit))))) [mo $1, mc $4] } } | '{-# SPECIALISE' activation qvar '::' sigtypes1 '#-}' |