diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 14:33:53 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 14:33:53 +0000 |
| commit | 48b3dc4fe2c2812bb91d430ae87bb563ca3cf1fc (patch) | |
| tree | d51adc8e747d648a62ebeb610f2004ce55484f80 | |
| parent | 5f449458b64f2fa2f5c6dd604c8f92e0e2fbcdcf (diff) | |
| download | haskell-48b3dc4fe2c2812bb91d430ae87bb563ca3cf1fc.tar.gz | |
(F)SLIT -> (f)sLit in HscTypes
| -rw-r--r-- | compiler/main/HscTypes.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs index ffb66eed59..48fb2b4554 100644 --- a/compiler/main/HscTypes.lhs +++ b/compiler/main/HscTypes.lhs @@ -330,8 +330,8 @@ hptRules hsc_env deps , let rules = case lookupUFM hpt mod of Just info -> md_rules (hm_details info) Nothing -> pprTrace "WARNING in hptRules" msg [] - msg = vcat [ptext SLIT("missing module") <+> ppr mod, - ptext SLIT("Probable cause: out-of-date interface files")] + msg = vcat [ptext (sLit "missing module") <+> ppr mod, + ptext (sLit "Probable cause: out-of-date interface files")] -- This really shouldn't happen, but see Trac #962 -- And get its dfuns |