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

Fix the build

Browse Source 
Oldish GHC does not understand @since.
This commit is contained in:
mrkkrp 2016-12-21 15:29:07 +03:00
parent d9f226a81d
commit 48e14a31ff
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Text/Inflections/Types.hs
View File

@ -46,7 +46,7 @@ import Prelude hiding (Word)
-- | Create a word from given 'Text'. The input should not contain spaces or -- | Create a word from given 'Text'. The input should not contain spaces or
-- 'InflectionInvalidWord' will be thrown. -- 'InflectionInvalidWord' will be thrown.
-- --
-- @since 0.3.0.0 -- /since 0.3.0.0/
mkWord :: MonadThrow m => Text -> m (Word 'Normal) mkWord :: MonadThrow m => Text -> m (Word 'Normal)
mkWord txt = mkWord txt =
@ -58,7 +58,7 @@ mkWord txt =
-- spaces or 'InflectionInvalidAcronym' will be thrown. Acronym is different -- spaces or 'InflectionInvalidAcronym' will be thrown. Acronym is different
-- from normal word by that it may not be transformed by inflections. -- from normal word by that it may not be transformed by inflections.
-- --
-- @since 0.3.0.0 -- /since 0.3.0.0/
mkAcronym :: MonadThrow m => Text -> m (Word 'Acronym) mkAcronym :: MonadThrow m => Text -> m (Word 'Acronym)
mkAcronym txt = mkAcronym txt =
@ -79,13 +79,13 @@ instance Show (Word 'Acronym) where
-- | A type-level tag for words. -- | A type-level tag for words.
-- --
-- @since 0.3.0.0 -- /since 0.3.0.0/
data WordType = Normal | Acronym data WordType = Normal | Acronym
-- | Get a 'Text' value from 'Word'. -- | Get a 'Text' value from 'Word'.
-- --
-- @since 0.3.0.0 -- /since 0.3.0.0/
unWord :: Word t -> Text unWord :: Word t -> Text
unWord (Word s) = s unWord (Word s) = s
@ -94,7 +94,7 @@ unWord (Word s) = s
-- list for example. The only thing that receiver of 'SomeWord' can do is to -- list for example. The only thing that receiver of 'SomeWord' can do is to
-- apply 'unWord' on it, of course. This is faciliated by 'unSomeWord'. -- apply 'unWord' on it, of course. This is faciliated by 'unSomeWord'.
-- --
-- @since 0.3.0.0 -- /since 0.3.0.0/
data SomeWord where data SomeWord where
SomeWord :: (Transformable (Word t), Show (Word t)) => Word t -> SomeWord SomeWord :: (Transformable (Word t), Show (Word t)) => Word t -> SomeWord
@ -109,7 +109,7 @@ instance Show SomeWord where
-- | Extract 'Text' from 'SomeWord' and apply given function only if the -- | Extract 'Text' from 'SomeWord' and apply given function only if the
-- word inside wasn't an acronym. -- word inside wasn't an acronym.
-- --
-- @since 0.3.0.0 -- /since 0.3.0.0/
unSomeWord :: (Text -> Text) -> SomeWord -> Text unSomeWord :: (Text -> Text) -> SomeWord -> Text
unSomeWord f (SomeWord w) = transform f w unSomeWord f (SomeWord w) = transform f w
@ -127,7 +127,7 @@ instance Transformable (Word 'Acronym) where
-- | The exceptions that is thrown when parsing of input fails. -- | The exceptions that is thrown when parsing of input fails.
-- --
-- @since 0.3.0.0 -- /since 0.3.0.0/
data InflectionException data InflectionException
= InflectionParsingFailed (ParseError Char Dec) = InflectionParsingFailed (ParseError Char Dec)