phone-numbers - Parse phone numbers with Google's libphonenumber
![Travis Status](https://camo.githubusercontent.com/3df68314cc504edbf8f634073cfb37aa2a19d4982a317d0693dc83f8e6148464/687474703a2f2f7472617669732d63692e6f72672f63687269737469616e2d6d617269652f70686f6e652d6e756d626572732e706e673f6272616e63683d6d6173746572)
--
-- Copyright © 2016 Christian Marie <christian@ponies.io>
--
-- The code in this file, and the program it is a part of, is
-- made available to you by its authors as open source software:
-- you can redistribute it and/or modify it under the terms of
-- the 3-clause BSD licence.
--
{-# LANGUAGE OverloadedStrings #-}
import Data.PhoneNumber
import Control.Monad
import Data.Monoid
import qualified Data.ByteString.Char8 as S
main :: IO ()
main = forever $ do
l <- S.getLine
S.putStrLn "Number:"
print $ parsePhoneNumber l "AU"
print (refType <$> parsePhoneNumberRef l "AU")
S.putStrLn $ "Characters keypad normalised: " <> convertAlphaCharacters l