parseValue :: String -> Maybe (String, Value)
parseValue line = extract $ line =~ logRegex where
    extract:: [[String]] -> Maybe (String, Value)
    extract [[_, name, msg]] = do
        val <- decode . encodeUtf8 . pack $ msg
        return (name, val)
    extract _ = Nothing
parseValue :: String -> Maybe (String, Value)
parseValue line = extract $ line =~ logRegex where
    extract:: [[String]] -> Maybe (String, Value)
    extract [[_, name, msg]] = do
        val <- decode . encodeUtf8 . pack $ msg
        return (name, val)
    extract _ = Nothing
parseValue line = extract $ line =~ logRegex where
    extract:: [[String]] -> Maybe (String, Value)
    extract [[_, name, msg]] = do
        val <- decode . encodeUtf8 . pack $ msg
        return (name, val)
    extract _ = Nothing