This commit is contained in:
Louis Dalibard 2024-12-24 16:31:15 +01:00
parent ae9451ec49
commit 8f7f1c89ed

View File

@ -14,7 +14,7 @@ loadImage :: String -- ^ Path to the file
-> IO DynamicImage -> IO DynamicImage
loadImage input = either error id <$> readImage input loadImage input = either error id <$> readImage input
mainProcess :: (String,Float,Float String, String) -> IO () mainProcess :: (String,Float,Float, String, String) -> IO ()
mainProcess (polarity,primaryScaleDark,primaryScaleLight, input, output) = do mainProcess (polarity,primaryScaleDark,primaryScaleLight, input, output) = do
putStrLn $ "Processing " ++ input putStrLn $ "Processing " ++ input