avwx 0.3.0.2 → 0.3.0.3

raw patch · 3 files changed

+7/−7 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• avwx.cabal +1/−1
• changelog.md +1/−1
• src/Data/Aviation/WX.hs +5/−5

@@ -1,5 +1,5 @@ name:                avwx-version:             0.3.0.2+version:             0.3.0.3 synopsis:            Parse aviation weather reports description:         Parse aviation weather reports, currently METARs and TAFs homepage:            https://www.hcesperer.org/posts/2016-09-20-avwx.html

@@ -1,6 +1,6 @@ # 0.3.0.2 -* Fix a TAF parsing bug+* Make it compile with a new ghc version  # 0.3.0.0 

@@ -103,7 +103,7 @@ import Data.Maybe(isNothing, catMaybes) import Data.Text(Text, pack) import Text.Parser.Char(CharParsing, space, spaces, char, satisfy, text, digit, anyChar)-import Text.Parser.Combinators(try, option, choice, sepBy, sepBy1, count)+import Text.Parser.Combinators(try, option, choice, sepBy, sepBy1, count, unexpected)  takeChars ::   CharParsing f =>@@ -729,7 +729,7 @@     _ <- char 'V'     dir2 <- (\a b c -> read [a, b, c]) <$> digit <*> digit <*> digit     return $ Varying meanWind dir1 dir2-variableWindParser _ = fail "Erroneous parameters"+variableWindParser _ = unexpected "Erroneous parameters"  windParser :: (Monad f, CharParsing f) => f Wind windParser = do@@ -765,8 +765,8 @@     obfs <- perhaps obfuscationParser     othr <- perhaps otherParser     when ( (== 0) . Prelude.length . Prelude.filter not $-        [ isNothing prc-        , isNothing obfs, isNothing othr ] ) $ fail ""+        [ isNothing dsc, isNothing prc+        , isNothing obfs, isNothing othr ] ) $ unexpected ""     return $ Phenomenon intsy dsc prc obfs othr  perhaps :: Alternative m => m a -> m (Maybe a)@@ -1015,7 +1015,7 @@                 [ "TEMPO" `callsfor` (TEMPO <$> parseFrom <*> parseTo <*> transitionParser)                 , "BECMG" `callsfor` (BECMG <$> parseFrom <*> parseTo <*> transitionParser)                 , "FM" `callsfor` (BECMG <$> parseFromFM <*> pure Nothing <*> transitionParser)-                , "PROB" `callsfor`  (PROB  <$> twoDigits <*> (spaces >> transitionTypeParser)) ]+                , "PROB" `callsfor`  (PROB  <$> twoDigits <*> (head <$> changesParser)) ]         transitionParser = sepBy1 oneTransition (char ' ')         parseFromFM = do             fromDate <- dateParserSansZulu