packages feed

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 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