add some comments

src/Main.hs

@@ -4,11 +4,11 @@ import Data.Char
 import Control.Concurrent
 import System.Environment   
 import Data.Time.Clock
-import qualified Data.ByteString.Lazy.Char8 as L8
 import Network.HTTP.Conduit
 import Data.List.Split
 import Data.Algorithm.Diff
 import Data.Algorithm.DiffOutput
+import qualified Data.ByteString.Lazy.Char8 as L8
 
 data GeneratorState = IsRunning | IsFinished
   deriving (Eq)
@@ -17,26 +17,24 @@ getChanges :: Diff f -> Bool
 getChanges (First _) = True
 getChanges _ = False
 
+-- Should stop the script if there's a checkbox with a keyword `stop`
+showRunning :: [String] -> GeneratorState
 showRunning html = IsRunning
 
-getCheckBoxList html = html
-
 timecodeGenerator :: GeneratorState -> [String] -> UTCTime -> IO ()
 timecodeGenerator IsFinished _ _  = return ()
 timecodeGenerator IsRunning text time = do
     html <- simpleHttp "https://hd.socks.town/s/h0jnEJQWy/download"
     let body =  (splitOn ("\n")) . L8.unpack $ html
     print $ filter getChanges $ getDiff body text
-
+    -- Waiting for 1 second
     threadDelay 1000000
+    -- Creating a loop until `IsFinished`
     if showRunning body == IsRunning then
       timecodeGenerator IsRunning body time
     else
       timecodeGenerator IsFinished body time
   
-
-      
-  
 main :: IO ()
 main = do
   time <- getCurrentTime