🧩 [layout]

explorable-viz · Sep 22, 2023 · 6b2c4e3 · 6b2c4e3
1 parent 66c0b28
commit 6b2c4e3
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Module.purs b/src/Module.purs
@@ -83,10 +83,9 @@ openDatasetAs :: forall g. Graph g => File -> Var -> GraphConfig g -> Aff (Graph
 openDatasetAs file x { g, n, γα } = do
    s <- parseProgram (Folder "fluid") file
    (g' × n') × (γα' × xv) <- fromRight <$>
-      ( runWithGraphAllocT (g × n) $ do
+      runWithGraphAllocT (g × n) do
            e <- desug s
            eα <- alloc e
            vα <- eval γα eα empty
            pure (γα × D.singleton x vα)
-      )
    pure ({ g: g', n: n', γα: γα' } × xv)