- parse_result <- readfile emptyCP cfg_file
-
- return $
- case parse_result of
- Left err -> Left (format_cpe err)
- Right cp ->
- let cp_username = get cp "DEFAULT" "username"
- cp_password = get cp "DEFAULT" "password"
+ it_exists <- doesFileExist cfg_file
+ if not it_exists then do
+ return $ Right mempty
+ else do
+ parse_result <- readfile emptyCP cfg_file
+
+ return $
+ case parse_result of
+ Left err -> Left (format_cpe err)
+ Right cp ->
+ let cp_username = get cp "DEFAULT" "username"
+ cp_password = get cp "DEFAULT" "password"