Fixing the implicitsnap build

Haskell-Things · Apr 18, 2024 · 3c903f6 · 3c903f6
1 parent dc113fa
commit 3c903f6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/programs/implicitsnap.hs b/programs/implicitsnap.hs
@@ -158,7 +158,7 @@ executeAndExport content callback maybeFormat =
         callbackS str          msg =
             callback <> "([" <> BSL.toStrict (encode str) <> "," <> BSL.toStrict (encode msg) <> ",null,null]);"
         scadOptions = generateScadOpts
-        openscadProgram = runOpenscad scadOptions [] content
+        openscadProgram = runOpenscad scadOptions [] Nothing content
     in
       unsafePerformIO $ do
       s@(_, obj2s, obj3s, messages) <- openscadProgram