Como fazer uma função duplicar fold em haskell

[Moises]

A função duplicarFold :: String -> String repete duas vezes cada vogal (letras 'a', 'e', 'i', 'o', 'u' minúsculas ou maiúsculas) numa cadeia de carateres; os outros carateres devem ficar inalterados. Por exemplo, 

duplicar "Ola, mundo!"== "OOlaa, muundoo!"

Da forma que fiz não esta funcionando:

duplicarFold :: String -> String 
duplicarFold xs = foldr (\x acc-> if elem x vogais then else ) [] xs
  where
  vogais = "aeiouAEIOU"

[Baderous]

Está praticamente feito, só te falta preencher o then e o else. No then apenas tens de repetir o x na String e juntar esse 2 caracteres ao acc.

duplicarFold :: String -> String
duplicarFold s = foldr (\x ss -> if isVowel x then x:x:ss else x:ss) [] s
        where isVowel x = elem x "aeiouAEIOU"