@@ -7,8 +7,6 @@ module Reporting.Render.Type.Localizer
77 , empty
88 , fromNames
99 , fromModule
10− , replEmpty
11− , replAdd
1210 )
1311 where
1412
@@ -18,7 +16,6 @@ import qualified Data.Name as Name
1816import qualified Data.Set as Set
1917
2018import qualified AST.Source as Src
21−import qualified Elm.Compiler.Imports as Imports
2219import qualified Elm.ModuleName as ModuleName
2320import Reporting.Doc ((<>))
2421import qualified Reporting.Doc as D
@@ -121,20 +118,3 @@ addType (A.At _ exposed) types =
121118 Src.Lower _ -> types
122119 Src.Upper name _ -> Set.insert name types
123120 Src.Operator _ -> types
124−
125−
126−
127−-- REPL STUFF
128−
129−
130−replEmpty :: Localizer
131−replEmpty =
132− Localizer $
133− Map.insert Name.replModule (Import Nothing All) $
134− Map.fromList $ map toPair Imports.defaults
135−
136−
137−replAdd :: Name.Name -> Maybe Name.Name -> Src.Exposing -> Localizer -> Localizer
138−replAdd name alias exposing (Localizer localizer) =
139− Localizer $ Map.insert name (Import alias (toExposing exposing)) localizer
140−