whitespaceOk :: String -> Bool
whitespaceOk s =
    if length s > 0
    then (not . isSpace . last) s
    else True
whitespaceOk :: String -> Bool
whitespaceOk s =
    if length s > 0
    then (not . isSpace . last) s
    else True
whitespaceOk s =
    if length s > 0
    then (not . isSpace . last) s
    else True