srid/ema
1
1
Fork 0
mirror of https://github.com/srid/ema.git synced 2024-11-29 09:25:14 +03:00
Code Issues Projects Releases Wiki Activity

Fix logging source

Browse Source
This commit is contained in:
Sridhar Ratnakumar 2021-05-01 12:24:05 -04:00
parent 5386bf7ca9
commit 6c28042ee7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Ema/Helper/FileSystem.hs
View File

@ -17,7 +17,11 @@ where
import Control.Concurrent (threadDelay)
import Control.Exception (finally)
import Control.Monad.Logger
import Data.Default
( LogLevel (LevelDebug, LevelInfo),
MonadLogger,
logWithoutLoc,
)
import Data.Default (Default (..))
import Data.LVar (LVar)
import qualified Data.LVar as LVar
import System.Directory (canonicalizePath)
@ -53,7 +57,7 @@ mountFileSystemOnLVar ::
(FilePath -> FileAction -> m (model -> model)) ->
m ()
mountFileSystemOnLVar folder pats var toAction = do
logInfoN $ "Mounting path " <> toText folder <> " (filter: " <> show pats <> ") onto LVar"
log LevelInfo $ "Mounting path " <> toText folder <> " (filter: " <> show pats <> ") onto LVar"
LVar.set var =<< do
fs <- filesMatching folder pats
initialActions <- traverse (`toAction` Update) fs