fay 0.21.0.0 → 0.21.0.1

raw patch · 3 files changed

+10/−4 lines, 3 filesdep ~mtldep ~optparse-applicativePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: mtl, optparse-applicative

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• fay.cabal +3/−2
• src/main/Main.hs +3/−2

@@ -2,6 +2,10 @@  See full history at: <https://github.com/faylang/fay/commits> +##### 0.21.0.1 (2014-10-12)++* Update to `optparse-applicative == 0.11.*`+ ## 0.21.0.0 (2014-10-11)  * Errors are now properly thrown from `encodeFay`. Changes the type signature to `encodeFay :: (GenericQ Value -> GenericQ Value) -> GenericQ Value`

@@ -1,5 +1,5 @@ name:                fay-version:             0.21.0.0+version:             0.21.0.1 synopsis:            A compiler for Fay, a Haskell subset that compiles to JavaScript. description:         Fay is a proper subset of Haskell which is type-checked                      with GHC, and compiled to JavaScript. It is lazy, pure, has a Fay monad,@@ -148,7 +148,8 @@   build-depends:       base     , fay-    , optparse-applicative == 0.10.*+    , mtl+    , optparse-applicative == 0.11.*     , split  executable fay-tests

@@ -6,6 +6,7 @@ import           Paths_fay (version)  import           Control.Monad+import           Control.Monad.Reader import           Data.List.Split (wordsBy) import           Data.Maybe import           Data.Version (showVersion)@@ -118,11 +119,11 @@   <*> switch (long "typecheck-only" <> help "Only invoke GHC for typechecking, don't produce any output")   <*> optional (strOption $ long "runtime-path" <> help "Custom path to the runtime so you don't have to reinstall fay when modifying it")   <*> switch (long "sourcemap" <> help "Produce a source map in <outfile>.map")-  <*> many (argument Just (metavar "<hs-file>..."))+  <*> many (argument (ReadM ask) (metavar "<hs-file>..."))   <*> switch (long "no-optimized-newtypes" <> help "Remove optimizations for newtypes, treating them as normal data types")   where     strsOption :: Mod OptionFields [String] -> Parser [String]-    strsOption m = option (ReadM . Right . wordsBy (== ',')) (m <> value [])+    strsOption m = option (ReadM . fmap (wordsBy (== ',')) $ ask) (m <> value [])  -- | Make incompatible options. incompatible :: Monad m