diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-25 12:49:19 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-25 12:49:19 +0000 |
commit | 829be0669c43ecf57c3a5b8b91e194c8f81bb490 (patch) | |
tree | 3a080b02531514861f94e80b9182a7ee1e03a1b2 /compiler/typecheck/TcHsType.lhs | |
parent | 09ff0e0da88272fa4a8f117bbc90cea9e444ab5d (diff) | |
download | haskell-829be0669c43ecf57c3a5b8b91e194c8f81bb490.tar.gz |
Use kind 'Symbol' consistently, rather than kind 'String'
Diffstat (limited to 'compiler/typecheck/TcHsType.lhs')
-rw-r--r-- | compiler/typecheck/TcHsType.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/typecheck/TcHsType.lhs b/compiler/typecheck/TcHsType.lhs index 5e131162b0..cd5e029c61 100644 --- a/compiler/typecheck/TcHsType.lhs +++ b/compiler/typecheck/TcHsType.lhs @@ -511,8 +511,8 @@ tc_hs_type hs_ty@(HsTyLit (HsNumTy n)) exp_kind ; return (mkNumLitTy n) } tc_hs_type hs_ty@(HsTyLit (HsStrTy s)) exp_kind - = do { checkExpectedKind hs_ty typeStringKind exp_kind - ; checkWiredInTyCon typeStringKindCon + = do { checkExpectedKind hs_ty typeSymbolKind exp_kind + ; checkWiredInTyCon typeSymbolKindCon ; return (mkStrLitTy s) } --------------------------- |