blue
/
excuse-scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix status code handling

This commit is contained in:
Maharramoff 2020-04-15 21:39:27 +04:00 committed by GitHub
parent 529ca15180
commit 3e36760d84
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Haskell/SmackMyBitch.hs
View File

@ -29,7 +29,7 @@ pickRandomMsg msg = (msg !!) Control.Applicative.<$> randomRIO (0, Prelude.lengt
apiResponse :: Int -> String
apiResponse code
| code >= 200 = "Message Sent Successfully"
| code == 201 = "Message Sent Successfully"
| otherwise = "Failed to send SMS"
sendMsg :: IO ()