6566dd4 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on golang help sign in

Deprecation warnings

6566dd4Phil Freeman11 years ago

src/Language/PureScript/Errors.hs+28−1

compare with golang

unifiedsplit

@@ -24,6 +24,7 @@ import Control.Arrow ((&&&))

24import Language.PureScript.Crash

25import Language.PureScript.AST

26import Language.PureScript.Pretty

27+import Language.PureScript.Pretty.Common (before)

27import Language.PureScript.Types

28import Language.PureScript.Types

28import Language.PureScript.Names

29import Language.PureScript.Names

29import Language.PureScript.Kinds

30import Language.PureScript.Kinds

@@ -128,6 +129,7 @@ data SimpleErrorMessage

128 | UnusedDctorImport (ProperName 'TypeName)

129 | UnusedDctorImport (ProperName 'TypeName)

129 | UnusedDctorExplicitImport (ProperName 'TypeName) [ProperName 'ConstructorName]

130 | UnusedDctorExplicitImport (ProperName 'TypeName) [ProperName 'ConstructorName]

130 | DeprecatedOperatorDecl String

131 | DeprecatedOperatorDecl String

132+ | DeprecatedOperatorSection Expr (Either Expr Expr)

131 | DeprecatedQualifiedSyntax ModuleName ModuleName

133 | DeprecatedQualifiedSyntax ModuleName ModuleName

132 | DeprecatedClassImport ModuleName (ProperName 'ClassName)

134 | DeprecatedClassImport ModuleName (ProperName 'ClassName)

133 | DeprecatedClassExport (ProperName 'ClassName)

135 | DeprecatedClassExport (ProperName 'ClassName)

@@ -304,6 +306,7 @@ errorCode em = case unwrapErrorMessage em of

304 UnusedDctorImport{} -> "UnusedDctorImport"

306 UnusedDctorImport{} -> "UnusedDctorImport"

305 UnusedDctorExplicitImport{} -> "UnusedDctorExplicitImport"

307 UnusedDctorExplicitImport{} -> "UnusedDctorExplicitImport"

306 DeprecatedOperatorDecl{} -> "DeprecatedOperatorDecl"

308 DeprecatedOperatorDecl{} -> "DeprecatedOperatorDecl"

309+ DeprecatedOperatorSection{} -> "DeprecatedOperatorSection"

307 DeprecatedQualifiedSyntax{} -> "DeprecatedQualifiedSyntax"

310 DeprecatedQualifiedSyntax{} -> "DeprecatedQualifiedSyntax"

308 DeprecatedClassImport{} -> "DeprecatedClassImport"

311 DeprecatedClassImport{} -> "DeprecatedClassImport"

309 DeprecatedClassExport{} -> "DeprecatedClassExport"

312 DeprecatedClassExport{} -> "DeprecatedClassExport"

@@ -426,7 +429,7 @@ wikiUri e = "https://github.com/purescript/purescript/wiki/Error-Code-" ++ error

426-- TODO Other possible suggestions:

429-- TODO Other possible suggestions:

427-- WildcardInferredType - source span not small enough

430-- WildcardInferredType - source span not small enough

428-- DuplicateSelectiveImport - would require 2 ranges to remove and 1 insert

431-- DuplicateSelectiveImport - would require 2 ranges to remove and 1 insert

429−-- DeprecatedClassExport, DeprecatedClassImport, would want to replace smaller span?

432+-- DeprecatedClassExport, DeprecatedClassImport, DeprecatedOperatorSection, would want to replace smaller span?

430errorSuggestion :: SimpleErrorMessage -> Maybe ErrorSuggestion

433errorSuggestion :: SimpleErrorMessage -> Maybe ErrorSuggestion

431errorSuggestion err = case err of

434errorSuggestion err = case err of

432 UnusedImport{} -> emptySuggestion

435 UnusedImport{} -> emptySuggestion

@@ -854,6 +857,30 @@ prettyPrintSingleError full level showWiki e = flip evalState defaultUnknownMap

854 , line "Support for value-declared operators will be removed in PureScript 0.9."

857 , line "Support for value-declared operators will be removed in PureScript 0.9."

855 ]

858 ]

856

859

860+ renderSimpleErrorMessage (DeprecatedOperatorSection op val) =

861+ paras [ line "An operator section uses legacy syntax. Operator sections are now written using anonymous function syntax:"

862+ , indent $ foldr1 before $

863+ case val of

864+ Left l ->

865+ [ line "("

866+ , prettyPrintValue valueDepth l

867+ , line " "

868+ , renderOperator op

869+ , line " _)"

870+ ]

871+ Right r ->

872+ [ line "(_ "

873+ , renderOperator op

874+ , line " "

875+ , prettyPrintValue valueDepth r

876+ , line ")"

877+ ]

878+ , line "Support for legacy operator sections will be removed in PureScript 0.9."

879+ ]

880+ where

881+ renderOperator (PositionedValue _ _ ex) = renderOperator ex

882+ renderOperator (Var (Qualified _ (Op ident))) = line ident

883+ renderOperator other = Box.hcat Box.top [ line "`", prettyPrintValue valueDepth other, line "`" ]

857 renderSimpleErrorMessage (DeprecatedQualifiedSyntax name qualName) =

884 renderSimpleErrorMessage (DeprecatedQualifiedSyntax name qualName) =

858 paras [ line "Import uses the deprecated 'qualified' syntax:"

885 paras [ line "Import uses the deprecated 'qualified' syntax:"

859 , indent $ line $ "import qualified " ++ runModuleName name ++ " as " ++ runModuleName qualName

886 , indent $ line $ "import qualified " ++ runModuleName name ++ " as " ++ runModuleName qualName

src/Language/PureScript/Linter.hs+1

@@ -71,6 +71,7 @@ lint (Module _ _ mn ds _) = censor (addHint (ErrorInModule mn)) $ mapM_ lintDecl

71 go d | Just i <- getDeclIdent d

72 , i `S.member` s = errorMessage (ShadowedName i)

73 | otherwise = mempty

74+ stepE _ (OperatorSection op val) = errorMessage $ DeprecatedOperatorSection op val

74 stepE _ _ = mempty

75 stepE _ _ = mempty

76 stepB :: S.Set Ident -> Binder -> MultipleErrors

77 stepB :: S.Set Ident -> Binder -> MultipleErrors