parseLine :: Atto.Parser (BS.ByteString, BS.ByteString)
parseLine = do
  variable <- Atto.takeWhile (/= '=')
  _        <- Atto.char '='
  value    <- Atto.takeWhile (/= '\n')
  return (variable, value)
parseLine :: Atto.Parser (BS.ByteString, BS.ByteString)
parseLine = do
  variable <- Atto.takeWhile (/= '=')
  _        <- Atto.char '='
  value    <- Atto.takeWhile (/= '\n')
  return (variable, value)
parseLine = do
  variable <- Atto.takeWhile (/= '=')
  _        <- Atto.char '='
  value    <- Atto.takeWhile (/= '\n')
  return (variable, value)