|
|
|
@ -1,4 +1,4 @@
|
|
|
|
|
module Validation |
|
|
|
|
module internal Validation |
|
|
|
|
|
|
|
|
|
open System.Drawing |
|
|
|
|
open SmoulderingBeachBall.Domain.DomainTypes |
|
|
|
@ -25,7 +25,7 @@
|
|
|
|
|
colourList |
|
|
|
|
|> Map.find (colour.ToLower()) |
|
|
|
|
| false -> |
|
|
|
|
invalidArg "Colour" "The colour specifed cannot is invalid." |
|
|
|
|
invalidArg "Colour" "The colour specifed is invalid." |
|
|
|
|
// "Please use the ListAvailableColours command for a list"? |
|
|
|
|
|
|
|
|
|
let buildBasicSpec iWidth iHeight mainColour path = |
|
|
|
|