-- vals2drwRef,mkDnaBase,
--
----------------------------------------------------------------------------------------------------

setName string  | firstletter == 'R' = Rutting
                | firstletter == 'C' = Cracking
                | firstletter == 'T' = Texture
                | otherwise          = Profile
    where firstletter =  head string


-- emptying a text buffet
setName string  | firstletter == 'R' = Rutting
                | firstletter == 'C' = Cracking
                | firstletter == 'T' = Texture
                | otherwise          = Profile
    where firstletter =  head string


-- emptying a text buffet
setName string  | firstletter == 'R' = Rutting
                | firstletter == 'C' = Cracking
                | firstletter == 'T' = Texture
                | otherwise          = Profile
    where firstletter =  head string


-- emptying a text buffet