createCheck :: Bool -> [String] -> Check
createCheck False = Check . Just . concat
createCheck :: Bool -> [String] -> Check
createCheck False = Check . Just . concat
createCheck False = Check . Just . concat