hs2ats 0.2.0.0 → 0.2.0.1

raw patch · 2 files changed

+9/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hs2ats.cabal +1/−1
• src/Language/ATS/Generate.hs +8/−4

@@ -1,5 +1,5 @@ name:                hs2ats-version:             0.2.0.0+version:             0.2.0.1 synopsis:            Create ATS types from Haskell types description:         This package enables scanning Haskell source files for data types and then generating [ATS](http://www.ats-lang.org/) types from them. homepage:            https://github.com/vmchale/hs2ats#readme

@@ -21,7 +21,7 @@ import qualified Data.Text                    as T import           Language.ATS                 as ATS import           Language.ATS.Generate.Error-import           Language.Haskell.Exts.Parser+import           Language.Haskell.Exts import           Language.Haskell.Exts.Syntax as HS import           Options.Generic @@ -125,10 +125,14 @@ modulePrint = g . fmap asATSType . filterModule     where g = (printATS . ATS . reverse . rights) &&& lefts +extends :: ParseMode+extends = defaultParseMode+    { extensions = [EnableExtension StandaloneDeriving] }+ generateATS :: String -> ErrM (String, [GenerateError])-generateATS hsSrc = modulePrint <$> case parseModule hsSrc of-    ParseOk x           -> Right x-    ParseFailed loc msg -> syntaxError loc msg+generateATS hsSrc = modulePrint <$> case parseModuleWithMode extends hsSrc of+    ParseOk x            -> Right x+    ParseFailed loc' msg -> syntaxError loc' msg  genATSTypes :: FilePath -> FilePath -> IO () genATSTypes p p' = do