Remove code duplication
[darcs-mirror-hpvt.git] / Utils.hs
index bbfd733..a8f5a90 100644 (file)
--- a/Utils.hs
+++ b/Utils.hs
@@ -33,3 +33,8 @@ fromListMax = foldr insert M.empty
         higher v Nothing   = Just v
        higher v (Just v') = Just (max v v')
 
+upstream :: String -> String
+upstream str = case elemIndices '-' str of
+               [] -> str
+               idx -> take (last idx) str