yasi 0.1.1.1 → 0.1.2.0

raw patch · 5 files changed

+78/−3 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• src/Yasi.hs +2/−2
• src/Yasi/Util.hs +38/−0
• test/Util.hs +31/−0
• yasi.cabal +3/−1

@@ -1,5 +1,9 @@ # Revision history for yasi +## 0.1.2.0 -- 2021-03-15++ * Add `unindent` utility function.+ ## 0.1.1.1 -- 2021-02-14   * Fix interaction of new variants and abstraction

@@ -4,8 +4,8 @@ --  * No dependency on [haskell-src-meta](https://hackage.haskell.org/package/haskell-src-meta). --    It is not actively developed, has long compile times and several bugs, some of which are --    by design (e.g. operator fixities).---  * Supports interpolating 'String', 'Data.Text.Text', 'Data.Text.Lazy.Text',---    'Data.ByteString.ByteString' and 'Data.ByteString.Lazy.ByteString' (UTF8).+--  * Supports interpolating 'String', 'Data.Text.Text', lazy 'Data.Text.Lazy.Text',+--    'Data.ByteString.ByteString' and lazy 'Data.ByteString.Lazy.ByteString' (UTF8). module Yasi   ( i, 

@@ -0,0 +1,38 @@+-- | Utilities for working with (multi-line) literals.+module Yasi.Util+  ( unindent,+  )+where++import qualified Data.Char as C+import Data.List (dropWhileEnd)+import qualified Data.Text as T++-- $setup+-- >>> import Yasi+-- >>> import qualified Data.Text.IO as T++-- | "Unindent" a string.+--+-- Also removes leading and trailing blank lines.+--+-- >>> :{+-- txt = unindent [iT|+--     foo+--       bar+--     baz+-- |]+-- :}+--+-- >>> T.putStr txt+-- foo+--   bar+-- baz+unindent :: T.Text -> T.Text+unindent txt = T.unlines . map (T.drop ind) $ ls+  where+    isWS = T.all C.isSpace+    ls = dropWhile isWS . dropWhileEnd isWS . T.lines $ txt+    ind = case T.length . T.takeWhile (== ' ') <$> filter (not . isWS) ls of+      [] -> 0+      inds -> minimum inds

@@ -0,0 +1,31 @@+{-# LANGUAGE CPP #-}++module Util where++import qualified Data.Text as T+import Hedgehog+import qualified Hedgehog.Gen as Gen+import qualified Hedgehog.Range as Range+import Test.Tasty+import Test.Tasty.HUnit+import Test.Tasty.Hedgehog+import Yasi.Util++#if !(MIN_VERSION_base(4,11,0))+import Data.Semigroup ((<>))+#endif++test_unindent :: TestTree+test_unindent =+  testGroup+    "unindentation"+    [ testCase "empty string" $ do+        unindent "" @?= "",+      testProperty "single line" . property $ do+        t <- forAll genTextWONL+        unindent t === (T.dropWhile (== ' ') t <> "\n"),+      testCase "multi line" $ do+        unindent "\n  asdf\n\n wtf\n   foo\n" @?= " asdf\n\nwtf\n  foo\n"+    ]+  where+    genTextWONL = Gen.text (Range.constant 1 50) $ Gen.filter (/= '\n') Gen.unicodeAll

@@ -1,6 +1,6 @@ cabal-version: 2.4 name: yasi-version: 0.1.1.1+version: 0.1.2.0  synopsis: Yet another string interpolator description:@@ -38,6 +38,7 @@   exposed-modules:     Yasi     Yasi.Internal+    Yasi.Util   build-depends:       base >= 4.9 && < 5     , template-haskell >= 2.11 && < 2.18@@ -63,3 +64,4 @@   other-modules:       Segments       Interpolations+      Util