jerith666 / set-dyn-ip Goto Github PK

• set-dyn-ip.hs

• Add a call to listResourceRecordSets before the existing code in the changeIpAddr function. Use this function to fetch the current IP address of the host from Route53.
• After fetching the current IP address, compare it with the desired IP address (externIp). Use the == operator in Haskell for this comparison.
• If the current IP address and the desired IP address are the same, use the putStrLn function to print a message saying "The current IP address already has the desired value." and do nothing else.
• If the current IP address and the desired IP address are not the same, proceed with the existing code to change the IP address. This means you need to wrap the existing code in an else block.

• set-dyn-ip.hs

• Add a new function to fetch the current IP address from Amazon AWS Route53. This function should handle any errors that might occur during the fetch operation.
• Modify the function that changes the IP address to first call the new function to fetch the current IP address. Compare the current IP address with the desired one. If they are the same, print a message saying so and return. Otherwise, proceed with the IP address change operation.
• Handle any errors that might occur when changing the IP address. This could be network errors, API errors, etc.

• test/set-dyn-ip-test.hs

• Create a new test file to test the new functionality.
• Write tests to ensure that the function to fetch the current IP address works as expected.
• Write tests to ensure that the function to change the IP address behaves correctly when the current IP address is the same as the desired one.
• Write tests to ensure that the function to change the IP address behaves correctly when the current IP address is different from the desired one.