Fix decode decoding vowel sequences

elsys · Nov 1, 2016 · da63f1d · da63f1d
1 parent 0c29599
commit da63f1d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/exercises/secret-lang/Secret-lang.hs b/exercises/secret-lang/Secret-lang.hs
@@ -51,6 +51,6 @@ dropN number (first:rest) = dropN (number-1) rest
 decode :: String -> String
 decode [] = []
 decode (x : 'o' : y : rest)
-	| x == y = x : decode (dropN 2 ('o':y:rest))
+	| x == y && isConsonant x = x : decode (dropN 2 ('o':y:rest))
 	| otherwise = x : 'o' : y : (decode (rest))
 decode (first : rest) = first : decode (rest)