Merge pull request #9 from haskell-works/newhoggy/tweak-prelude-exports

Tweak prelude exports
haskell-works · Nov 20, 2024 · b5cc0bf · b5cc0bf
2 parents 2ec0f97 + 35f2f46
commit b5cc0bf
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 2 deletions.
diff --git a/hw-prelude.cabal b/hw-prelude.cabal
@@ -31,6 +31,7 @@ common network                    { build-depends: network
 common process                    { build-depends: process                                     < 1.7    }
 common resourcet                  { build-depends: resourcet                                   < 1.4    }
 common text                       { build-depends: text                                        < 3      }
+common transformers               { build-depends: transformers                                < 0.7    }
 common unliftio                   { build-depends: unliftio                                    < 0.3    }
 
 common hw-prelude                 { build-depends: hw-prelude                                           }
@@ -82,6 +83,7 @@ library
                         process,
                         resourcet,
                         text,
+                        transformers,
                         unliftio,
                         Win32,
 

diff --git a/src/HaskellWorks/Prelude.hs b/src/HaskellWorks/Prelude.hs
@@ -6,7 +6,10 @@ module HaskellWorks.Prelude
 
     String,
     Text,
+    LazyText,
     ByteString,
+    LazyByteString,
+
     Int,
     Int8,
     Int16,
@@ -115,10 +118,12 @@ module HaskellWorks.Prelude
     unzip,
     unzip3,
 
+    Read(..),
+    readEither,
+
     Fractional(..),
     Floating(..),
     Integral(..),
-    Read(..),
     Real(..),
     RealFrac(..),
     RealFloat(..),
@@ -140,6 +145,8 @@ module HaskellWorks.Prelude
     denominator,
     (%),
 
+    Identity(..),
+
     Monad(..),
     MonadFail(..),
     MonadPlus(..),
@@ -154,7 +161,14 @@ module HaskellWorks.Prelude
     Foldable(..),
     Traversable(..),
 
+    ExceptT(..),
+    runExceptT,
+
+    Type,
+    Typeable,
+
     IO,
+    Handle,
 
     CallStack,
     HasCallStack,
@@ -181,23 +195,30 @@ module HaskellWorks.Prelude
 import           Control.Applicative
 import           Control.Exception
 import           Control.Monad
+import           Control.Monad.Trans.Except
 import           Data.Bifunctor
 import           Data.Bool
 import           Data.ByteString                      (ByteString)
+import qualified Data.ByteString.Lazy                 as LBS
 import           Data.Char
+import           Data.Data
 import           Data.Either
 import           Data.Eq
 import           Data.Foldable
 import           Data.Function
 import           Data.Functor.Contravariant
 import           Data.Functor.Contravariant.Divisible
+import           Data.Functor.Identity
 import           Data.Int
+import           Data.Kind
 import           Data.Maybe
 import           Data.Monoid
 import           Data.Ord
 import           Data.Semigroup
 import           Data.String
 import           Data.Text                            (Text)
+import qualified Data.Text                            as T
+import qualified Data.Text.Lazy                       as LT
 import           Data.Traversable
 import           Data.Tuple
 import           Data.Void
@@ -210,8 +231,12 @@ import           GHC.Stack
 import           HaskellWorks.Error
 import           Prelude
 import           System.FilePath
+import           System.IO                            (Handle)
+import           Text.Read
 
-import qualified Data.Text                            as T
+type LazyByteString = LBS.ByteString
+
+type LazyText = LT.Text
 
 tshow :: Show a => a -> Text
 tshow = T.pack . show