Bug fixed.

Strrationalism · Feb 7, 2024 · 395d559 · 395d559
1 parent a746f49
commit 395d559
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Runtime.hs b/src/Runtime.hs
@@ -634,7 +634,7 @@ httpGet' [UnError (PieString url)] = PieString <$> liftIO (httpGetString url)
 httpGet' _ = invalidArg
 
 httpDownload' :: PieFunc
-httpDownload' [(UnError (PieString outFilePath)), (UnError (PieString url))] = do
+httpDownload' [UnError (PieString outFilePath), (UnError (PieString url))] = do
   content <- liftIO $ httpGet url
   liftIO $ Utf8.writeFile outFilePath content
   return PieNil