git.iko.soy/elk
on master help sign in
add exit messages for the worker
165d5ecEvan Czaplicki
builder/src/Reporting/Exit.hs+37
compare with master
unifiedsplit
@@ -8,6 +8,7 @@ module Reporting.Exit
8 , Publish(..), publishToReport
8 , Publish(..), publishToReport
9 , Install(..), installToReport
9 , Install(..), installToReport
10 , Reactor(..), reactorToReport
10 , Reactor(..), reactorToReport
11+ , Worker(..), workerToReport
11 , newPackageOverview
12 , newPackageOverview
12 --
13 --
13 , Solver(..)
14 , Solver(..)
@@ -2033,3 +2034,39 @@ replToReport problem =
2033
2034
2034 ReplBlocked ->
2035 ReplBlocked ->
2035 corruptCacheReport
2036 corruptCacheReport
2037+
2038+
2039+
2040+-- WORKER
2041+
2042+
2043+data Worker
2044+ = WorkerInputError Error.Module
2045+ | WorkerNoMain
2046+
2047+
2048+workerToReport :: Worker -> Help.Report
2049+workerToReport problem =
2050+ case problem of
2051+ WorkerInputError err ->
2052+ Help.compilerReport err []
2053+
2054+ WorkerNoMain ->
2055+ Help.report "NO MAIN" Nothing
2056+ (
2057+ "Without a `main` value, I do not know what to show on screen!"
2058+ )
2059+ [ D.reflow $
2060+ "Adding a `main` value can be as brief as:"
2061+ , D.vcat
2062+ [ D.fillSep [D.cyan "import","Html"]
2063+ , ""
2064+ , D.fillSep [D.green "main","="]
2065+ , D.indent 2 $ D.fillSep [D.cyan "Html" <> ".text",D.dullyellow "\"Hello!\""]
2066+ ]
2067+ , D.reflow $
2068+ "Try adding something like that!"
2069+ , D.toSimpleNote $
2070+ "I recommend looking through https://guide.elm-lang.org for more advice on\
2071+ \ how to fill in `main` values."
2072+ ]