box 0.9.3.0 → 0.9.3.1

raw patch · 3 files changed

+4/−8 lines, 3 files

Files

• box.cabal +2/−2
• readme.org +0/−4
• src/Box/IO.hs +2/−2

@@ -1,6 +1,6 @@ cabal-version: 3.0 name: box-version: 0.9.3.0+version: 0.9.3.1 license: BSD-3-Clause license-file: LICENSE copyright: Tony Day (c) 2017@@ -13,7 +13,7 @@ description:     This might be a profunctor effect system, but unlike all the others. See the project readme.org for usage and discussion: https://github.com/tonyday567/box#readme.org build-type: Simple-tested-with: GHC ==8.10.7 || ==9.4.7 || ==9.6.3 || ==9.8.1+tested-with: GHC ==8.10.7 || ==9.2.7 || ==9.4.7 || ==9.6.3 || ==9.8.1 extra-doc-files:     ChangeLog.md     readme.org

@@ -11,16 +11,12 @@ * Usage  #+begin_src haskell-:set prompt "> " :set -XOverloadedStrings import Box import Prelude import Data.Function import Data.Bool #+end_src--#+RESULTS:-: >  Standard IO echoing: 

@@ -177,11 +177,11 @@  -- | Convert a 'Box' from ByteString to lines of Text. toLineBox :: Text -> Box IO ByteString ByteString -> CoBox IO Text Text-toLineBox end (Box c e) = Box (contramap (encodeUtf8 . (<> end)) c) <$> evalEmitter [] (unlistE $ fmap (Text.lines . decodeUtf8Lenient) e)+toLineBox end (Box c e) = Box (contramap (encodeUtf8 . (<> end)) c) <$> evalEmitter [] (unlistE $ fmap (Text.lines . decodeUtf8) e)  -- | Convert a 'Box' from lines of Text to ByteStrings. fromLineBox :: Text -> Box IO Text Text -> Box IO ByteString ByteString-fromLineBox end (Box c e) = Box (contramap (Text.lines . decodeUtf8Lenient) (listC c)) (fmap (encodeUtf8 . (<> end)) e)+fromLineBox end (Box c e) = Box (contramap (Text.lines . decodeUtf8) (listC c)) (fmap (encodeUtf8 . (<> end)) e)  -- | Commit to an IORef --