dentifier :: Parser Identifier
identifier = do
    h <- takeTill isSlash <* char '/'
    p <- takeTill isSlash <* char '/'
    t <- takeTill isSpace
    return Identifier { iHostname = h, iPlugin = p, iType = t }
  where
    isSlash :: Char -> Bool
    isSlash c = c == '/'
--    

identifier :: Parser Identifier
identifier = do
    h <- takeTill isSlash <* char '/'
    p <- takeTill isSlash <* char '/'
    t <- takeTill isSpace
    return Identifier { iHostname = h, iPlugin = p, iType = t }
  where
    isSlash :: Char -> Bool
    isSlash c = c == '/'
--    
identifier = do
    h <- takeTill isSlash <* char '/'
    p <- takeTill isSlash <* char '/'
    t <- takeTill isSpace
    return Identifier { iHostname = h, iPlugin = p, iType = t }
  where
    isSlash :: Char -> Bool
    isSlash c = c == '/'
--    