git.iko.soy/elk
on bf2e5eb help sign in
elk/builder/src/Reporting/Progress/Repl.hs
27 lines 390 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 (\_ -> return ()) end
20end :: Maybe Exit.Exit -> IO ()
21end maybeExit =
22 case maybeExit of
23 Just exit ->
24 Exit.toStderr exit
26 Nothing ->
27 return ()