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 type that we didn't need to export

Browse Source
This commit is contained in:
Justin Leitgeb 2014-03-01 09:27:45 -05:00
parent 93d6759a24
commit e379e7ea41
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Text/Inflections/Parse/CamelCase.hs
View File

@ -1,6 +1,6 @@
{-# LANGUAGE FlexibleContexts, NoMonomorphismRestriction #-}
module Text.Inflections.Parse.CamelCase ( Word(..), parser )
module Text.Inflections.Parse.CamelCase ( parser )
where
import qualified Text.ParserCombinators.Parsec.Char as C

6
Text/Inflections/Underscore.hs
View File

@ -1,10 +1,14 @@
module Text.Inflections.Underscore (underscore, underscoreCustom) where
import Text.Inflections.Parse.CamelCase (Word(..), parser)
import Text.Inflections.Parse.CamelCase (parser)
import Text.Inflections.Parse.Types (Word(..))
import Text.Parsec (ParseError, parse)
import Data.Char (toLower)
import Data.List (intercalate)
underscore :: String -> Either ParseError String
underscore s = underscoreCustom [] s