typeable/inflections-hs
1
0
Fork 0
mirror of https://github.com/typeable/inflections-hs.git synced 2024-09-11 06:05:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Remove unnecessary imports, add warnings to tests

Browse Source
This commit is contained in:
Justin Leitgeb 2015-04-08 08:46:40 -05:00
parent 78a44e9859
commit e19c7b2786
9 changed files with 2 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Text/Inflections/Humanize.hs
View File

@ -2,7 +2,6 @@ module Text.Inflections.Humanize (humanize) where
import Text.Inflections.Parse.Types (Word(..))
import Data.List (intercalate)
import Data.Char (toUpper)
import Prelude (String, Bool(..), (.), map, zip, ($), unwords, repeat)

1
Text/Inflections/Titleize.hs
View File

@ -2,7 +2,6 @@ module Text.Inflections.Titleize (titleize) where
import Text.Inflections.Parse.Types (Word(..))
import Data.List (intercalate)
import Data.Char (toUpper)
import Prelude (String, unwords, map, ($))

1
inflections.cabal
View File

@ -58,4 +58,5 @@ test-suite test
, test-framework-quickcheck2
, parsec
, containers
ghc-options: -Wall
default-language: Haskell2010

9
test/Text/Inflections/HumanizeTest.hs
View File

@ -2,19 +2,10 @@ module Text.Inflections.HumanizeTest where
import Test.HUnit hiding (Test)
import Test.Framework.Providers.QuickCheck2 (testProperty)
import Test.Framework.Providers.HUnit (testCase)
import Test.QuickCheck
import Test.QuickCheck.Arbitrary
import Test.Framework (Test, testGroup)
import Data.List (all, group)
import Data.Char (toLower)
import Data.Map (fromList)
import Text.Parsec
import Text.Inflections (humanize)
import Text.Inflections.Parse.Types (Word(..))

10
test/Text/Inflections/OrdinalTest.hs
View File

@ -5,17 +5,8 @@ import Test.HUnit hiding (Test)
import Test.Framework.Providers.QuickCheck2 (testProperty)
import Test.Framework.Providers.HUnit (testCase)
import Test.QuickCheck
import Test.QuickCheck.Arbitrary
import Test.Framework (Test, testGroup)
import Data.List (all, group)
import Data.Char (toLower)
import Data.Map (fromList)
import Text.Parsec
import Data.Maybe (fromJust)
import Text.Inflections (ordinal, ordinalize)
{-# ANN module "HLint: ignore Use camelCase" #-}
@ -64,4 +55,3 @@ prop_ordinalReturnsNotEmpty = not . null . ordinal
prop_ordinalizeSamePrefix :: Integer -> Bool
prop_ordinalizeSamePrefix n = show n == take (length $ show n) (ordinalize n)

4
test/Text/Inflections/Tests.hs
View File

@ -6,13 +6,11 @@ import Test.Framework.Providers.QuickCheck2 (testProperty)
import Test.Framework.Providers.HUnit (testCase)
import Test.QuickCheck
import Test.QuickCheck.Arbitrary
import Test.Framework (Test, testGroup)
import Data.List (all, group)
import Data.List (group)
import Data.Char (toLower)
import Data.Map (fromList)
import Text.Inflections
import Text.Inflections.Parse.Types (Word(..))

9
test/Text/Inflections/TitleizeTest.hs
View File

@ -2,19 +2,10 @@ module Text.Inflections.TitleizeTest where
import Test.HUnit hiding (Test)
import Test.Framework.Providers.QuickCheck2 (testProperty)
import Test.Framework.Providers.HUnit (testCase)
import Test.QuickCheck
import Test.QuickCheck.Arbitrary
import Test.Framework (Test, testGroup)
import Data.List (all, group)
import Data.Char (toLower)
import Data.Map (fromList)
import Text.Parsec
import Text.Inflections (titleize)
import Text.Inflections.Parse.Types (Word(..))

10
test/Text/Inflections/UnderscoreTest.hs
View File

@ -2,20 +2,10 @@ module Text.Inflections.UnderscoreTest where
import Test.HUnit hiding (Test)
import Test.Framework.Providers.QuickCheck2 (testProperty)
import Test.Framework.Providers.HUnit (testCase)
import Test.QuickCheck
import Test.QuickCheck.Arbitrary
import Test.Framework (Test, testGroup)
import Data.List (all, group)
import Data.Char (toLower)
import Data.Map (fromList)
import Text.Parsec
import Data.Maybe (fromJust)
import Text.Inflections (underscore)
import Text.Inflections.Parse.Types (Word(..))

11
test/Text/InflectionsTest.hs
View File

@ -2,22 +2,11 @@ module Text.InflectionsTest where
import Test.HUnit hiding (Test)
import Test.Framework.Providers.QuickCheck2 (testProperty)
import Test.Framework.Providers.HUnit (testCase)
import Test.QuickCheck
import Test.QuickCheck.Arbitrary
import Test.Framework (Test, testGroup)
import Data.List (all, group)
import Data.Char (toLower)
import Data.Map (fromList)
import Text.Parsec
import Data.Maybe (fromJust)
import Text.Inflections (toUnderscore, toDashed, toCamelCased)
import Text.Inflections.Parse.Types (Word(..))
{-# ANN module "HLint: ignore Use camelCase" #-}