🧩 [doc] : Remove some logging.

explorable-viz · Jan 27, 2025 · 45678aa · 45678aa
1 parent 5118447
commit 45678aa
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/fluid/lib/convolution.fld b/fluid/lib/convolution.fld
@@ -14,4 +14,3 @@ let convolve image kernel boundary =
              x >= 1, x <= m, y >= 1, y <= n
          ] in weightedSum `quot` area
          | (m', n') in (m, n) |];
-
diff --git a/src/Fluid.purs b/src/Fluid.purs
@@ -89,9 +89,9 @@ dispatchCommand ∷ Command → Aff Unit
 dispatchCommand (Evaluate p) = do
    v <- (evaluate p)
    log (prettyP v)
-dispatchCommand (Publish (Folder website) b) = do -- Publish -> BundleWebsite?
+dispatchCommand (Publish (Folder website) b) = -- Publish -> BundleWebsite?
+
    void $ liftEffect $ publish website b
-   log "Published"
 
 copyOptions :: ExecOptions
 copyOptions =
@@ -125,7 +125,7 @@ main = runAff_ callback (dispatchCommand =<< liftEffect (execParser opts))
 callback :: Either Error Unit -> Effect Unit
 callback = case _ of
    Left err -> logShow err
-   Right _ -> log "Success"
+   Right _ -> pure unit
 
 evaluate :: Program -> Aff (Val Unit)
 evaluate (Program { imports, datasets, fileName }) = do
Original file line number	Diff line number	Diff line change
Expand Up		@@ -14,4 +14,3 @@ let convolve image kernel boundary =
		x >= 1, x <= m, y >= 1, y <= n
		] in weightedSum `quot` area
		\| (m', n') in (m, n) \|];