Hide ‘Text.Inflections.Types’

Text/Inflections.hs

@@ -87,6 +87,15 @@ module Text.Inflections
   , ordinalize
   , parseSnakeCase
   , parseCamelCase
+    -- * Types and helpers
+  , Word
+  , WordType (..)
+  , mkWord
+  , mkAcronym
+  , unWord
+  , SomeWord (..)
+  , unSomeWord
+  , InflectionException (..)
     -- * Often used combinators
   , toUnderscore
   , toDashed
@@ -110,6 +119,10 @@ import Text.Inflections.Types
 import Text.Inflections.Underscore (underscore)
 import Text.Megaparsec
 
+#if MIN_VERSION_base(4,8,0)
+import Prelude hiding (Word)
+#endif
+
 -- | Transforms CamelCasedString to snake_cased_string_with_underscores. In
 -- case of failed parsing 'InflectionException' is thrown.
 --

inflections.cabal

@@ -29,7 +29,6 @@ flag dev
 
 library
   exposed-modules:     Text.Inflections
-                     , Text.Inflections.Types
 
   other-modules:       Text.Inflections.Data
                      , Text.Inflections.Camelize
@@ -41,6 +40,7 @@ library
                      , Text.Inflections.Parse.SnakeCase
                      , Text.Inflections.Titleize
                      , Text.Inflections.Transliterate
+                     , Text.Inflections.Types
                      , Text.Inflections.Underscore
 
   if flag(dev)

test/Text/Inflections/DasherizeSpec.hs

@@ -7,8 +7,7 @@ where
 
 import Test.Hspec
 
-import Text.Inflections (dasherize)
-import Text.Inflections.Types
+import Text.Inflections
 
 #if !MIN_VERSION_base(4,8,0)
 import Control.Applicative

test/Text/Inflections/HumanizeSpec.hs

@@ -5,8 +5,7 @@ module Text.Inflections.HumanizeSpec (spec) where
 
 import Test.Hspec
 
-import Text.Inflections (humanize)
-import Text.Inflections.Types
+import Text.Inflections
 
 #if !MIN_VERSION_base(4,8,0)
 import Control.Applicative

test/Text/Inflections/TitleizeSpec.hs

@@ -4,8 +4,7 @@
 module Text.Inflections.TitleizeSpec (spec) where
 
 import Test.Hspec
-import Text.Inflections (titleize)
-import Text.Inflections.Types
+import Text.Inflections
 
 #if !MIN_VERSION_base(4,8,0)
 import Control.Applicative

test/Text/Inflections/UnderscoreSpec.hs

@@ -4,8 +4,7 @@
 module Text.Inflections.UnderscoreSpec (spec) where
 
 import Test.Hspec
-import Text.Inflections (underscore)
-import Text.Inflections.Types
+import Text.Inflections
 
 #if !MIN_VERSION_base(4,8,0)
 import Control.Applicative