[add runEither
John Meacham <john@repetae.net>**20061104031122] hunk ./Util/Gen.hs 17
+
+runEither :: String -> Either String a -> a
+runEither msg (Left fm) = error $ msg ++ " - " ++ fm
+runEither _ (Right a) = a