builder/src/Reporting/Exit/Init.hs · elk

on 10fa496 help sign in

32 lines 540 B history raw

1{-# LANGUAGE OverloadedStrings #-}

2module Reporting.Exit.Init

3 ( Exit(..)

4 , toReport

5 )

6 where

9import qualified Reporting.Doc as D

10import qualified Reporting.Exit.Help as Help

14-- EXITS

17data Exit

18 = ClashingFlags

22-- TO REPORT

25toReport :: Exit -> Help.Report

26toReport exit =

27 case exit of

28 ClashingFlags ->

29 Help.report "CLASHING FLAGS" Nothing

30 "Trim down to zero or one flag. If you are not sure which one you want, learn more about them with:"

31 [ D.indent 4 $ D.green $ "elm init --help"

32 ]