From 3e36760d8450470ad0fef3595f9882ca38edb130 Mon Sep 17 00:00:00 2001
From: Maharramoff <9804406+Maharramoff@users.noreply.github.com>
Date: Wed, 15 Apr 2020 21:39:27 +0400
Subject: [PATCH] fix status code handling

---
 Haskell/SmackMyBitch.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Haskell/SmackMyBitch.hs b/Haskell/SmackMyBitch.hs
index 26ec220..52c178d 100644
--- a/Haskell/SmackMyBitch.hs
+++ b/Haskell/SmackMyBitch.hs
@@ -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 ()