mbug 1.0 → 1.1

raw patch · 5 files changed

+50/−14 lines, 5 filesdep ~basedep ~extradep ~optparse-applicative

Dependency ranges changed: base, extra, optparse-applicative, process, time

Files

• mbug.cabal +14/−12
• src/Data/Text/Compat.hs +23/−0
• src/MBug/Options.hs +1/−1
• src/MBug/Scrape.hs +1/−1
• src/Options/Applicative/Compat.hs +11/−0

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 94ac4ffaed906cc7c6fc21f6e34deffce3013fe48480299b75bed5fee79c1d19+-- hash: 28915eed4aecb0981edfa9c311619daf8b7beb37c23db472bb31dfc31e6a8f1b  name:           mbug-version:        1.0+version:        1.1 synopsis:       download bugs mailboxes description:    See readme at https://gitlab.com/iu-guest/mbug category:       Debian@@ -37,23 +37,25 @@       Data.Maybe.Extended       Text.HTML.Scalpel.Core.Extended   other-modules:+      Data.Text.Compat+      Options.Applicative.Compat       Paths_mbug   hs-source-dirs:       src   build-depends:-      base ==4.10.*+      base >=4.9 && <5     , bytestring ==0.10.*     , directory ==1.3.*-    , extra ==1.6.*+    , extra >=1.5 && <1.7     , http-client ==0.5.*     , http-client-tls ==0.3.*-    , optparse-applicative ==0.14.*-    , process ==1.6.*+    , optparse-applicative >=0.13 && <0.15+    , process >=1.4 && <1.7     , scalpel-core ==0.5.*     , tagsoup ==0.14.*     , text ==1.2.*     , th-printf ==0.5.*-    , time ==1.8.0.*+    , time >=1.6 && <1.9     , xdg-basedir ==0.2.*   if flag(devel)     ghc-options: -Wall -Wextra -Werror -Wincomplete-patterns -Wunused-imports@@ -66,20 +68,20 @@   hs-source-dirs:       bin   build-depends:-      base ==4.10.*+      base >=4.9 && <5     , bytestring ==0.10.*     , directory ==1.3.*-    , extra ==1.6.*+    , extra >=1.5 && <1.7     , http-client ==0.5.*     , http-client-tls ==0.3.*     , mbug-    , optparse-applicative ==0.14.*-    , process ==1.6.*+    , optparse-applicative >=0.13 && <0.15+    , process >=1.4 && <1.7     , scalpel-core ==0.5.*     , tagsoup ==0.14.*     , text ==1.2.*     , th-printf ==0.5.*-    , time ==1.8.0.*+    , time >=1.6 && <1.9     , xdg-basedir ==0.2.*   if flag(devel)     ghc-options: -Wall -Wextra -Werror -Wincomplete-patterns -Wunused-imports

@@ -0,0 +1,23 @@+{-# LANGUAGE CPP #-}+module Data.Text.Compat+  ( module Data.Text+#if !MIN_VERSION_text(1,2,3)+  , unsnoc+#endif+  ) where+import Prelude+import qualified Prelude as P+import Data.Text+import qualified Data.Text as T ++-- This compatibility version is deliberately implemented in most+-- simple way possible. Using 'String'.+#if !MIN_VERSION_text(1,2,3)+unsnoc :: Text -> Maybe (Text, Char)+unsnoc txt =+  case T.unpack txt of+    [] -> Nothing+    s  -> Just (T.pack $ P.init s, P.last s)+#endif++

@@ -5,7 +5,7 @@ import Data.Semigroup      ((<>)) import Data.Text           (Text) import MBug.Data.FolderMH  (FolderMH (..), readFolderMH, showFolderMH)-import Options.Applicative+import Options.Applicative.Compat   ( Parser   , execParser   , footer

@@ -5,7 +5,7 @@ import qualified Data.ByteString.Lazy            as BL import           Data.Maybe.Extended             (maybeToAlternative) import           Data.Text                       (Text)-import qualified Data.Text                       as T+import qualified Data.Text.Compat                 as T import           Data.Text.Encoding              (decodeUtf8) import           MBug.Data.Bug                   (Bug (..)) import           Text.HTML.Scalpel.Core.Extended

@@ -0,0 +1,11 @@+module Options.Applicative.Compat+  ( module Options.Applicative+  , strArgument+  ) where++import Options.Applicative hiding (strArgument)+import Data.String (IsString, fromString)+import qualified Options.Applicative as A++strArgument :: (IsString s) => Mod ArgumentFields String -> Parser s+strArgument m = fromString <$> A.strArgument m