TEST @@ -1,6 +1,7 @@ testPermParser :: Permutation Parser String testPermParser = - f <$> toPermutationWithDefault 'x' (char 'a') + f + <$> toPermutationWithDefault 'x' (char 'a') <*> toPermutationWithDefault 'y' (char 'b') <*> toPermutationWithDefault 'z' (char 'c') where