phone-metadata 0.0.1.1 → 0.0.1.2

raw patch · 4 files changed

+15/−9 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• phone-metadata.cabal +4/−2
• src/PhoneNumberMetadata.hs +6/−6
• src/Transformer.hs +1/−1

@@ -1,5 +1,9 @@ # Revision history for hphone-lib +## 0.0.1.2 -- 2016-06-16++* Find data-file at run-time+ ## 0.0.1.1 -- 2016-06-15  * Clean up phone-number patterns

@@ -6,7 +6,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.0.1.1+version:             0.0.1.2  -- A short (one-line) description of the package. synopsis:            Phonenumber Metadata based on Google's libphonenumber@@ -30,6 +30,7 @@ maintainer:          raghu.ugare@gmail.com,                      vijay.hassan@gmail.com +stability:           experimental -- A copyright notice. -- copyright:            @@ -57,7 +58,8 @@   exposed-modules: PhoneNumberMetadata      -- Modules included in this library but not exported.-  other-modules:   Transformer       +  other-modules:   Transformer+                 , Paths_phone_metadata             -- LANGUAGE extensions used by modules in this package.   -- other-extensions:    

@@ -4,7 +4,8 @@ module PhoneNumberMetadata where -import  System.IO.Unsafe (unsafePerformIO)+import System.IO.Unsafe (unsafePerformIO)+import Paths_phone_metadata  data PhoneNumberMetadata   =  PhoneNumberMetadata {   territories :: [Territory]@@ -49,7 +50,7 @@   voicemail                                :: Maybe PhoneNumberPatterns } deriving (Show, Read) -data NumberFormat        = NumberFormat {+data NumberFormat                   = NumberFormat {   nfNationalPrefixFormattingRule           :: Maybe String,   nfNationalPrefixOptionalWhenFormatting   :: Maybe Bool,   nfCarrierCodeFormattingRule              :: Maybe String,@@ -60,13 +61,12 @@   nfInternationalFormat                    :: Maybe [String] } deriving (Show, Read) -data PhoneNumberPatterns = PhoneNumberPatterns+data PhoneNumberPatterns            = PhoneNumberPatterns   { nationalNumberPattern                  :: Maybe NumberPattern   , possibleNumberPattern                  :: Maybe NumberPattern   , exampleNumber                          :: Maybe PhoneNumber   } deriving (Read, Show)  phoneNumberMetadata                        :: PhoneNumberMetadata-phoneNumberMetadata   =-  read $ unsafePerformIO $-  readFile "config/phoneNumberMetadata.hs" :: PhoneNumberMetadata+phoneNumberMetadata                 =+  read $ unsafePerformIO $ readFile =<< getDataFileName "phoneNumberMetadata.hs" :: PhoneNumberMetadata

@@ -58,7 +58,7 @@            (xpOption (xpElem "exampleNumber"         xpText))  numberFormatPickler (npfr,         npowf, ccfr, p,         lzp, ld, f, intlf) =-  NumberFormat       npfr  (toBool npowf) ccfr  p  (toBool lzp) ld  f  intlf+  NumberFormat       npfr  (toBool npowf) ccfr  p  (toBool lzp) ((fmap removeWhiteSpace) <$> ld)  f  intlf  numberFormatUnPickler nf =   (