module Text.IPv6Addr
(
IPv6Addr
, maybeIPv6Addr
, maybePureIPv6Addr
, maybeFullIPv6Addr
, getIPv6AddrOf
) where
import Control.Monad (replicateM)
import Data.Char (intToDigit,isDigit,isHexDigit,toLower)
import Data.Function (on)
import Data.List (group,isSuffixOf,elemIndex,elemIndices,intersperse)
import Data.Maybe (fromJust,isJust)
import qualified Data.Text as T
import Data.Text.Read (decimal)
import Numeric (showIntAtBase)
import Text.IPv6Addr.Internal
import Text.IPv6Addr.Types
maybeIPv6Addr :: T.Text -> Maybe IPv6Addr
maybeIPv6Addr t = maybeTokIPv6Addr t >>= ipv6TokensToText
maybePureIPv6Addr :: T.Text -> Maybe IPv6Addr
maybePureIPv6Addr t = maybeTokPureIPv6Addr t >>= ipv6TokensToText
maybeFullIPv6Addr :: T.Text -> Maybe IPv6Addr
maybeFullIPv6Addr t = do
a <- maybeTokPureIPv6Addr t
ipv6TokensToText $ expandTokens $ fromDoubleColon a
getIPv6AddrOf :: String -> IO (Maybe IPv6Addr)
getIPv6AddrOf s = do
l <- networkInterfacesIPv6AddrList
case lookup s l of
Just a -> return $ maybeIPv6Addr $ T.pack $ show a
Nothing -> return Nothing