language-parser-0.1.0.0

Safe Haskell	None
Language	Haskell2010

Database.Language

Synopsis

addLang :: MonadIO m => LanguageName -> AppT m (Key Language)
combineWord :: MonadIO m => WordText -> PartOfSpeech -> LanguageName -> [Int64] -> AppT m (Maybe (Key Word))
doAllLangWithAll :: MonadIO m => (LanguageName -> LanguageName -> AppT m (Maybe (Int, LanguageName, LanguageName))) -> AppT m [(Int, LanguageName, LanguageName)]
evolveLang :: MonadIO m => LanguageName -> LanguageName -> AppT m (Maybe (Int, LanguageName, LanguageName))
findLangByKey :: MonadIO m => Key Language -> AppT m [Entity Language]
listEvolveLawsByLangs :: MonadIO m => LanguageName -> LanguageName -> AppT m [Entity EvolveLaw]
listLangs :: MonadIO m => AppT m [Entity Language]
reEvolveLang :: MonadIO m => LanguageName -> LanguageName -> AppT m (Maybe (Int, LanguageName, LanguageName))
traceWordEvolve :: MonadIO m => WordText -> [LanguageName] -> AppT m [WordText]

Documentation

addLang Source #

Arguments

:: MonadIO m
=> LanguageName	`LanguageName`
-> AppT m (Key Language)	`Key` `Language` if inserted succsesfully

The addLang function inserts new language.

>>> runSQLAction $ addLang 'Khuzdûl'
LanguageKey {unLanguageKey = SqlBackendKey {unSqlBackendKey = 19950}}

combineWord Source #

Arguments

:: MonadIO m
=> WordText	Result of combinations. Must be done manually.
-> PartOfSpeech	`PartOfSpeech` of the resulting word
-> LanguageName	`LanguageName` of the resulting word
-> [Int64]	Word's IDs from which it's combined.
-> AppT m (Maybe (Key Word))

The combineWord function inserts result of combining other words from any language.

/ kʷiliati / [v.] ( 19240 ) from Queran

>>> runSQLAction $ combineWord "kʷilissa" Noun Queran [19240, 19300]
Just (WordKey {unWordKey = SqlBackendKey {unSqlBackendKey = 19310}})

doAllLangWithAll :: MonadIO m => (LanguageName -> LanguageName -> AppT m (Maybe (Int, LanguageName, LanguageName))) -> AppT m [(Int, LanguageName, LanguageName)] Source #

evolveLang :: MonadIO m => LanguageName -> LanguageName -> AppT m (Maybe (Int, LanguageName, LanguageName)) Source #

findLangByKey :: MonadIO m => Key Language -> AppT m [Entity Language] Source #

listEvolveLawsByLangs :: MonadIO m => LanguageName -> LanguageName -> AppT m [Entity EvolveLaw] Source #

listLangs :: MonadIO m => AppT m [Entity Language] Source #

reEvolveLang :: MonadIO m => LanguageName -> LanguageName -> AppT m (Maybe (Int, LanguageName, LanguageName)) Source #

traceWordEvolve :: MonadIO m => WordText -> [LanguageName] -> AppT m [WordText] Source #