module AutoPkg.Util where


readInt :: String -> Int
readInt = read


splitChar :: Char -> String -> [String]
splitChar c s
 = case span (/= c) s of
	([], []) -> []
	([], tl) -> [tl]
	(hd, tl) -> hd : (splitChar c $ drop 1 tl)

-------------------------------------------------------------------------------

errorExit :: String -> a
errorExit str
 = error $ "Error : " ++ str