dont commit the static dir

NorfairKing · Mar 26, 2024 · 0801f05 · 0801f05
1 parent c581695
commit 0801f05
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/smos-web-server/src/Smos/Web/Server/SmosSession.hs b/smos-web-server/src/Smos/Web/Server/SmosSession.hs
@@ -38,7 +38,11 @@ withPlaygroundSession relFile func =
 withPlaygroundDir :: forall m a. (MonadUnliftIO m) => (Path Abs Dir -> m a) -> m a
 withPlaygroundDir func = withRunInIO $ \runInIO ->
   withSystemTempDir "smos-web-server-playground" $ \tempDir ->
-    runInIO $ bracket_ (ensureDir tempDir) (removeDirRecur tempDir) (func (toWorkflowDir tempDir))
+    runInIO $
+      bracket_
+        (ensureDir tempDir)
+        (removeDirRecur tempDir)
+        (func (toWorkflowDir tempDir))
 
 toWorkflowDir :: Path Abs Dir -> Path Abs Dir
 toWorkflowDir = (</> [reldir|workflow|])