readProfile :: String -> Either String MGProfile
readProfile f = do
    case parse pFile "" f of
        Left err -> Left $ "Error reading profile: " ++ show err
        Right a -> Right a
readProfile :: String -> Either String MGProfile
readProfile f = do
    case parse pFile "" f of
        Left err -> Left $ "Error reading profile: " ++ show err
        Right a -> Right a
readProfile f = do
    case parse pFile "" f of
        Left err -> Left $ "Error reading profile: " ++ show err
        Right a -> Right a