Restart mount on directory moves, etc.

Decent workaround for #134
srid · Sep 24, 2021 · 1a8e922 · 1a8e922
1 parent 1e793ed
commit 1a8e922
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 11 deletions.
diff --git a/emanote.cabal b/emanote.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               emanote
-version:            0.1.61.1
+version:            0.1.62.0
 license:            AGPL-3.0-only
 copyright:          2021 Sridhar Ratnakumar
 maintainer:         srid@srid.ca

diff --git a/flake.lock b/flake.lock
diff --git a/src/Emanote/Source.hs b/src/Emanote/Source.hs
@@ -11,6 +11,7 @@ import Control.Monad.Logger (MonadLogger)
 import Data.LVar (LVar)
 import qualified Ema.Helper.FileSystem as EmaFS
 import Emanote.Model (Model)
+import Emanote.Prelude (log)
 import Emanote.Source.Loc
 import Emanote.Source.Patch (transformActions)
 import Emanote.Source.Pattern (filePatterns, ignorePatterns)
@@ -21,10 +22,14 @@ emanate :: (MonadUnliftIO m, MonadLogger m) => NonEmpty FilePath -> LVar Model -
 emanate paths modelLvar initialModel = do
   defaultLayer <- liftIO emanoteDefaultLayer
   let layers = one defaultLayer <> userLayers paths
-  EmaFS.unionMountOnLVar
-    layers
-    filePatterns
-    ignorePatterns
-    modelLvar
-    initialModel
-    transformActions
+  mcmd <-
+    EmaFS.unionMountOnLVar
+      layers
+      filePatterns
+      ignorePatterns
+      modelLvar
+      initialModel
+      transformActions
+  whenJust mcmd $ \EmaFS.Cmd_Remount -> do
+    log "!! Restart suggested !!"
+    emanate paths modelLvar initialModel