|
|
@ -9,7 +9,7 @@ |
|
|
|
let validateDimension dimension = |
|
|
|
let validateDimension dimension = |
|
|
|
match dimension with |
|
|
|
match dimension with |
|
|
|
| dimension when dimension <= 0 -> |
|
|
|
| dimension when dimension <= 0 -> |
|
|
|
invalidArg "dimension" "[ERROR] The width and height must be greater than 0." |
|
|
|
invalidArg "dimension" "[ERROR] The images height and width must be greater than 0." |
|
|
|
| _ -> () |
|
|
|
| _ -> () |
|
|
|
|
|
|
|
|
|
|
|
let validateDirectory filePath = |
|
|
|
let validateDirectory filePath = |
|
|
|