Main: Use prettyprinter package for help text

optparse-applicative-0.18 introduces a breaking change which requires
using the prettyprinter package for help text

See: https://github.com/pcapriotti/optparse-applicative/releases/tag/0.18.0
Signed-off-by: hololeap <[email protected]>

Author: hololeap

exe/Main.hs

@@ -6,10 +6,10 @@ module Main (main) where
 import Control.Applicative.Combinators
 import qualified Control.Applicative.Combinators.NonEmpty as CNE
 import Control.Monad
-import Data.Bitraversable
 import Data.Monoid (Endo(..))
 import qualified Options.Applicative as Opt
 import qualified Options.Applicative.Help as Opt
+import qualified Prettyprinter as PP
 import qualified Text.Parsec as P
 import qualified Text.Parsec.String as P
 import qualified Distribution.Verbosity as V
@@ -153,21 +153,20 @@ globalParser = Opt.info (Opt.helper <*> parser) infoMod
                   . P.runParser verbosityString () "command line option"
 
                 err :: P.ParseError -> String
-                err _ = ($ "") $ Opt.displayS $ Opt.renderCompact $ Opt.extractChunk $ Opt.vsepChunks
-                  [ Opt.stringChunk "Takes a number (0-3) or one of the following values:"
-                  , Opt.tabulate
-#if MIN_VERSION_optparse_applicative(0,17,0)
-                    (Opt.prefColumns Opt.defaultPrefs)
-#endif
-                    =<< traverse (bitraverse Opt.stringChunk Opt.stringChunk)
-                      [ ("silent", "No output")
-                      , ("normal", "Default verbosity")
-                      , ("verbose", "Increased verbosity")
-                      , ("deafening", "Maximum verbosity")
-                      ]
-                  ]
-
-
+                err _ = show $ PP.vsep
+                    [ PP.pretty "Takes a number (0-3) or one of the following values:"
+                    , PP.hsep
+                        [ PP.vsep $ PP.pretty . (++ ":") . fst <$> verbs
+                        , PP.vsep $ PP.pretty . snd <$> verbs
+                        ]
+                    ]
+
+                verbs =
+                    [ ("silent", "No output")
+                    , ("normal", "Default verbosity")
+                    , ("verbose", "Increased verbosity")
+                    , ("deafening", "Maximum verbosity")
+                    ]
 
 -----------------------------------------------------------------------
 -- List

hackport.cabal

@@ -883,6 +883,7 @@ executable hackport
     , optparse-applicative
     , parsec
     , parser-combinators
+    , prettyprinter
     , process
   other-modules:    Paths_hackport
   other-extensions: