chitauri 0.1.0.0 → 0.1.0.1
raw patch · 3 files changed
+22/−25 lines, 3 filesdep ~base
Dependency ranges changed: base
Files
- assets/dict.txt too large to diff
- chitauri.cabal +19/−24
- src/Parser.hs +3/−1
+ assets/dict.txt view
file too large to diff
chitauri.cabal view
@@ -1,42 +1,37 @@ name: chitauri-version: 0.1.0.0-synopsis: Initial project template from stack+version: 0.1.0.1+synopsis: Helper for the Major System description: Please see README.md-homepage: https://github.com/githubuser/chitauri#readme+homepage: https://github.com/marcusbuffett/chitauri license: BSD3 license-file: LICENSE-author: Author name here-maintainer: example@example.com-copyright: 2016 Author name here+author: Marcus Buffett+maintainer: marcusbuffett@me.com+copyright: 2016 Marcus Buffett category: Web build-type: Simple--- extra-source-files: cabal-version: >=1.10--library- hs-source-dirs: src- exposed-modules: Parser,- Phoneme,- PhoneticDictionary,- PhoneticWord,- MajorSystem- build-depends: base >= 4.7 && < 5,- parsec,- generic-trie,- either-unwrap- default-language: Haskell2010+data-files: assets/dict.txt executable chitauri- hs-source-dirs: app+ hs-source-dirs: app, src main-is: Main.hs ghc-options: -threaded -rtsopts -with-rtsopts=-N- build-depends: base,- chitauri,+ build-depends: base >= 4.7 && < 5, either-unwrap, generic-trie, haskeline,- digits+ digits,+ parsec,+ generic-trie,+ either-unwrap default-language: Haskell2010+ other-modules: Parser,+ Phoneme,+ PhoneticDictionary,+ PhoneticWord,+ MajorSystem,+ Paths_chitauri test-suite chitauri-test type: exitcode-stdio-1.0
src/Parser.hs view
@@ -15,6 +15,7 @@ import Phoneme (charsToPhoneme) import PhoneticWord (PhoneticWord(..)) import MajorSystem(phonemeToNumber)+import Paths_chitauri (getDataFileName) parseDictionary :: String -> Either ParseError PhoneticDictionary parseDictionary dict = do@@ -28,7 +29,8 @@ combineEntries xs ys = sortBy (compare `on` (length . word)) $ xs ++ ys dictionary :: IO String-dictionary = readFile "assets/dict.txt"+dictionary = getDataFileName "assets/dict.txt" >>= readFile +{- dictionary = readFile "assets/dict.txt" -} phonemesParser = many1 (char ' ') *> sepBy phonemeParser (char ' ') phonemeParser = many1 upper <* skipMany digit