made directory searching concurrent

Author: tusharad

my-grep.cabal

@@ -1,136 +1,52 @@
 cabal-version:      3.4
--- The cabal-version field refers to the version of the .cabal specification,
--- and can be different from the cabal-install (the tool) version and the
--- Cabal (the library) version you are using. As such, the Cabal (the library)
--- version used must be equal or greater than the version stated in this field.
--- Starting from the specification version 2.2, the cabal-version field must be
--- the first thing in the cabal file.
-
--- Initial package description 'my-grep' generated by
--- 'cabal init'. For further documentation, see:
---   http://haskell.org/cabal/users-guide/
---
--- The name of the package.
 name:               my-grep
-
--- The package version.
--- See the Haskell package versioning policy (PVP) for standards
--- guiding when and how versions should be incremented.
--- https://pvp.haskell.org
--- PVP summary:     +-+------- breaking API changes
---                  | | +----- non-breaking API additions
---                  | | | +--- code changes with no API change
 version:            0.1.0.0
-
--- A short (one-line) description of the package.
--- synopsis:
-
--- A longer description of the package.
--- description:
-
--- The license under which the package is released.
 license:            BSD-2-Clause
-
--- The file containing the license text.
 license-file:       LICENSE
-
--- The package author(s).
 author:             tusharad
-
--- An email address to which users can send suggestions, bug reports, and patches.
 maintainer:         tusharadhatrao@gmail.com
-
--- A copyright notice.
--- copyright:
 category:           Text
 build-type:         Simple
-
--- Extra doc files to be distributed with the package, such as a CHANGELOG or a README.
 extra-doc-files:    CHANGELOG.md
-
--- Extra source files to be distributed with the package, such as examples, or a tutorial module.
--- extra-source-files:
-
 common warnings
-    ghc-options: -Wall
+    ghc-options: -Wall -threaded -rtsopts
 
 library
-    -- Import common warning flags.
     import:           warnings
-
-    -- Modules exported by the library.
     exposed-modules:  MyLib
                     , MyGrep.Common.Types
                     , MyGrep.Common.Utils
                     , MyGrep.Core
                     , MyGrep.Search
 
-    -- Modules included in this library but not exported.
-    -- other-modules:
-
-    -- LANGUAGE extensions used by modules in this package.
-    -- other-extensions:
-
-    -- Other library packages from which modules are imported.
     build-depends:    base ^>=4.17.2.1
                     , text
                     , directory
                     , filepath
                     , safe-coloured-text
 
-    -- Directories containing source files.
     hs-source-dirs:   src
 
-    -- Base language which the package is written in.
     default-language: GHC2021
 
 executable my-grep
-    -- Import common warning flags.
     import:           warnings
 
-    -- .hs or .lhs file containing the Main module.
     main-is:          Main.hs
 
-    -- Modules included in this executable, other than Main.
-    -- other-modules:
-
-    -- LANGUAGE extensions used by modules in this package.
-    -- other-extensions:
-
-    -- Other library packages from which modules are imported.
     build-depends:
         base ^>=4.17.2.1,
         my-grep
-
-    -- Directories containing source files.
     hs-source-dirs:   app
-
-    -- Base language which the package is written in.
     default-language: GHC2021
 
 test-suite my-grep-test
-    -- Import common warning flags.
     import:           warnings
-
-    -- Base language which the package is written in.
     default-language: GHC2021
-
-    -- Modules included in this executable, other than Main.
-    -- other-modules:
-
-    -- LANGUAGE extensions used by modules in this package.
-    -- other-extensions:
-
-    -- The interface type and version of the test suite.
     type:             exitcode-stdio-1.0
-
-    -- Directories containing source files.
     hs-source-dirs:   test
 
-    -- The entrypoint to the test suite.
     main-is:          Main.hs
-
-    -- Test dependencies.
     build-depends:
         base ^>=4.17.2.1,
         my-grep

src/MyGrep/Search.hs

@@ -10,6 +10,11 @@ import           Data.Text.Internal.Search
 import           Data.Maybe (fromMaybe)
 import           Control.Exception
 import           System.FilePath
+import           Control.Concurrent
+
+
+addInMVar :: MVar () -> IO ()
+addInMVar mVar1 = putMVar mVar1 ()
 
 search :: Args -> IO ()
 search Args{..} = do
@@ -22,13 +27,15 @@ search Args{..} = do
       searchInDirectory searchLocation' = do
         files_ <- listDirectory searchLocation'
         let files = filter (\x -> head x /= '.') files_   -- filtering out hidden directories
-        mapM_ go files
+        isSearchCompleteVar <- newEmptyMVar
+        mapM_ (\file -> forkIO $ go isSearchCompleteVar file) files
+        mapM_ (\_ -> takeMVar isSearchCompleteVar) files -- wait for all threads to finish
         where 
-          go :: FilePath -> IO ()
-          go fp = do
+          go :: MVar () -> FilePath -> IO ()
+          go mVar1 fp = do
             let fullPath = searchLocation' </> fp
-            doesDirectoryExist fullPath >>= (\isDir -> if isDir then searchInDirectory fullPath 
-              else searchInFile fullPath)
+            doesDirectoryExist fullPath >>= (\isDir -> if isDir then searchInDirectory fullPath >> addInMVar mVar1
+              else searchInFile fullPath >> addInMVar mVar1)
 
       searchInFile :: FilePath -> IO ()
       searchInFile fileName = do