git.iko.soy/elk
on master help sign in
cosmetic: add vertical whitespace
0c62398Evan Czaplicki
src/Elm/Compiler.hs+13−3
compare with master
unifiedsplit
@@ -32,18 +32,20 @@ import qualified Reporting.Result as Result
32import qualified Reporting.Warning as Warning
32import qualified Reporting.Warning as Warning
33
33
34
34
35+
35-- VERSION
36-- VERSION
36
37
38+
37version :: Package.Version
39version :: Package.Version
38version =
40version =
39 Elm.Compiler.Version.version
41 Elm.Compiler.Version.version
40
42
41
43
44+
42-- DEPENDENCIES
45-- DEPENDENCIES
43
46
44−parseDependencies
47+
45− :: String
46− -> Either [Error] (PublicModule.Name, [PublicModule.Name])
48+parseDependencies :: String -> Either [Error] (PublicModule.Name, [PublicModule.Name])
47parseDependencies sourceCode =
49parseDependencies sourceCode =
48 let
50 let
49 (Result.Result _warnings rawResult) =
51 (Result.Result _warnings rawResult) =
@@ -60,8 +62,10 @@ parseDependencies sourceCode =
60 )
62 )
61
63
62
64
65+
63-- COMPILATION
66-- COMPILATION
64
67
68+
65{-| Compiles Elm source code to JavaScript. -}
69{-| Compiles Elm source code to JavaScript. -}
66compile
70compile
67 :: Context
71 :: Context
@@ -125,8 +129,10 @@ docsGen isExposed (Module.Module name _ info) =
125 (Just . toDocs) `fmap` Result.mapError Error.Docs getChecked
129 (Just . toDocs) `fmap` Result.mapError Error.Docs getChecked
126
130
127
131
132+
128-- DEALIASER
133-- DEALIASER
129
134
135+
130newtype Localizer =
136newtype Localizer =
131 Localizer RenderType.Localizer
137 Localizer RenderType.Localizer
132
138
@@ -136,8 +142,10 @@ dummyLocalizer =
136 Localizer Map.empty
142 Localizer Map.empty
137
143
138
144
145+
139-- ERRORS
146-- ERRORS
140
147
148+
141newtype Error =
149newtype Error =
142 Error (A.Located Error.Error)
150 Error (A.Located Error.Error)
143
151
@@ -157,8 +165,10 @@ errorToJson (Localizer localizer) location (Error err) =
157 Error.toJson localizer location err
165 Error.toJson localizer location err
158
166
159
167
168+
160-- WARNINGS
169-- WARNINGS
161
170
171+
162newtype Warning =
172newtype Warning =
163 Warning (A.Located Warning.Warning)
173 Warning (A.Located Warning.Warning)
164
174