git.iko.soy/elk
on efe80bc help sign in
elk/builder/src/Reporting/Progress/Repl.hs
30 lines 422 B history raw
1module Reporting.Progress.Repl
2 ( reporter
3 )
4 where
7import qualified Reporting.Exit as Exit
8import qualified Reporting.Progress as Progress
12-- REPORTER
15reporter :: Progress.Reporter
16reporter =
17 Progress.Reporter
18 (\_ -> return ())
19 (\_ -> return True)
20 end
23end :: Maybe Exit.Exit -> IO ()
24end maybeExit =
25 case maybeExit of
26 Just exit ->
27 Exit.toStderr exit
29 Nothing ->
30 return ()