git.iko.soy/elk
on master help sign in
Switch to using Imports.defaults directly / remove Imports.addDefaults
commit55d5d918aaa093688022006d940c4fbacafc191d authorEvan Czaplicki <evancz@users.noreply.github.com> dateTue 14 May 2019, 18:19 (7 years ago) parent405621b
2 files changed+3−12
compare with master
unifiedsplit
compiler/src/Elm/Compiler/Imports.hs+1−10 compiler/src/Reporting/Render/Type/Localizer.hs+2−2
compiler/src/Elm/Compiler/Imports.hs+1−10
@@ -1,7 +1,7 @@
11{-# OPTIONS_GHC -Wall #-}
22{-# LANGUAGE OverloadedStrings #-}
33module Elm.Compiler.Imports
4− ( addDefaults
4+ ( defaults
55 )
66 where
77
@@ -14,15 +14,6 @@ import qualified Reporting.Annotation as A
1414
1515
1616
17−-- ADD DEFAULTS
18−
19−
20−addDefaults :: [Src.Import] -> [Src.Import]
21−addDefaults imports =
22− defaults ++ imports
23−
24−
25−
2617-- DEFAULTS
2718
2819
compiler/src/Reporting/Render/Type/Localizer.hs+2−2
@@ -93,7 +93,7 @@ fromNames names =
9393
9494
9595fromModule :: Src.Module -> Localizer
96−fromModule modul@(Src.Module _ _ imports _ _ _ _ _) =
96+fromModule modul@(Src.Module _ _ _ imports _ _ _ _ _) =
9797 Localizer $ Map.fromList $
9898 (Src.getName modul, Import Nothing All) : map toPair imports
9999
@@ -131,7 +131,7 @@ replEmpty :: Localizer
131131replEmpty =
132132 Localizer $
133133 Map.insert Name.replModule (Import Nothing All) $
134− Map.fromList $ map toPair $ Imports.addDefaults []
134+ Map.fromList $ map toPair Imports.defaults
135135
136136
137137replAdd :: Name.Name -> Maybe Name.Name -> Src.Exposing -> Localizer -> Localizer