Commit 9b859ef0 authored by Alan Zimmerman's avatar Alan Zimmerman

Make SCCFunSig tag Located for ghc-exactprint

parent 67c2e076
......@@ -852,7 +852,7 @@ data Sig name
| SCCFunSig SourceText -- Note [Pragma source text] in BasicTypes
(Located name) -- Function name
(Maybe StringLiteral)
(Maybe (Located StringLiteral))
| CompleteMatchSig SourceText (Located [Located name]) (Maybe (Located name))
deriving instance (DataId name) => Data (Sig name)
......
......@@ -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 '#-}'
......
......@@ -727,7 +727,7 @@ funBindTicks loc fun_id mod sigs
-- by the renamer
, let cc_str
| Just cc_str <- mb_cc_str
= sl_fs cc_str
= sl_fs $ unLoc cc_str
| otherwise
= getOccFS (Var.varName fun_id)
cc_name = moduleNameFS (moduleName mod) `appendFS` consFS '.' cc_str
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment