getFlagOrPrefix :: String -> String
getFlagOrPrefix str | elem '=' str = ((takeWhile (/= '=') str))
                    | otherwise = str
getFlagOrPrefix :: String -> String
getFlagOrPrefix str | elem '=' str = ((takeWhile (/= '=') str))
                    | otherwise = str
getFlagOrPrefix str | elem '=' str = ((takeWhile (/= '=') str))
                    | otherwise = str