hindent 4.3.11 → 4.3.12

raw patch · 2 files changed

+16/−12 lines, 2 filesdep +applicative-quotersdep +ghc-primdep ~basedep ~descriptivePVP ok

version bump matches the API change (PVP)

Dependencies added: applicative-quoters, ghc-prim

Dependency ranges changed: base, descriptive

API changes (from Hackage documentation)

Files

• hindent.cabal +4/−2
• src/main/Main.hs +12/−10

@@ -1,5 +1,5 @@ name:                hindent-version:             4.3.11+version:             4.3.12 synopsis:            Extensible Haskell pretty printer description:         Extensible Haskell pretty printer. Both a library and an executable.                      .@@ -50,8 +50,10 @@   build-depends:     base >= 4 && < 5                    , hindent                    , text-                   , descriptive >= 0.7 && < 0.9+                   , descriptive >= 0.7 && < 0.10                    , haskell-src-exts >= 1.16+                   , applicative-quoters+                   , ghc-prim  executable hindent-generate-tests   hs-source-dirs:    src/main

@@ -1,6 +1,7 @@ {-# LANGUAGE PatternGuards #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE ViewPatterns #-}+{-# LANGUAGE QuasiQuotes #-}  -- | Main entry point to hindent. --@@ -12,6 +13,7 @@ import           HIndent.Types  import           Control.Applicative+import           Control.Applicative.QQ.Idiom import           Data.List import           Data.Text (Text) import qualified Data.Text as T@@ -20,6 +22,7 @@ import           Data.Version (showVersion) import           Descriptive import           Descriptive.Options+import           GHC.Tuple import           Language.Haskell.Exts.Annotated hiding (Style,style) import           Paths_hindent (version) import           System.Environment@@ -48,19 +51,18 @@         => Consumer [Text] (Option Stoppers) m (Style,[Extension]) options =   ver *>-  ((,) <$> style <*> exts)+  [i|(,) style exts|]   where ver =           stop (flag "version" "Print the version" Version)         style =-          makeStyle <$>-          (constant "--style" "Style to print with" () *>-           foldr1 (<|>)-                  (map (\s ->-                          constant (styleName s)-                                   (styleDescription s)-                                   s)-                       styles)) <*>-          lineLen+          [i|makeStyle (constant "--style" "Style to print with" () *>+                        foldr1 (<|>)+                               (map (\s ->+                                       constant (styleName s)+                                                (styleDescription s)+                                                s)+                                    styles))+                       lineLen|]         exts =           fmap getExtensions (many (prefix "X" "Language extension"))         lineLen =