shithub: MicroHs

Info  •  Files  •  Log  •  Branches

More Data.Text stuff

--- a/README.md

+++ b/README.md

@@ -82,6 +82,7 @@

    * OverloadedStrings

    * PatternSynonyms

    * PolyKinds

+   * PolymorphicComponents

    * RankNTypes

    * RecordWildCards

    * QualifiedDo

--- a/lib/AllOfLib.hs

+++ b/lib/AllOfLib.hs

@@ -79,7 +79,9 @@

 import Data.STRef

 import Data.String

 import Data.Text

+import Data.Text.IO

 import Data.Text.Lazy

+import Data.Text.Lazy.IO

 import Data.Traversable

 import Data.Tuple

 import Data.Tuple.Instances

--- /dev/null

+++ b/lib/Data/Text/IO.hs

@@ -1,0 +1,10 @@

+module Data.Text.IO(readFile, writeFile) where

+import Prelude hiding (readFile, writeFile)

+import qualified Prelude as P

+import Data.Text

+

+readFile :: FilePath -> IO Text

+readFile fn = pack <$> P.readFile fn

+

+writeFile :: FilePath -> Text -> IO ()

+writeFile fn t = P.writeFile fn (unpack t)

--- /dev/null

+++ b/lib/Data/Text/Lazy/IO.hs

@@ -1,0 +1,10 @@

+module Data.Text.Lazy.IO(readFile, writeFile) where

+import Prelude hiding (readFile, writeFile)

+import qualified Prelude as P

+import Data.Text.Lazy

+

+readFile :: FilePath -> IO Text

+readFile fn = pack <$> P.readFile fn

+

+writeFile :: FilePath -> Text -> IO ()

+writeFile fn t = P.writeFile fn (unpack t)

--- a/lib/libs.cabal

+++ b/lib/libs.cabal

@@ -85,7 +85,9 @@

         Data.Semigroup

         Data.String

         Data.Text

+        Data.Text.IO

         Data.Text.Lazy

+        Data.Text.Lazy.IO

         Data.Traversable

         Data.Tuple

         Data.Tuple.Instances

-- 

⑨