Haskel: error compiling function fff

I'm trying to compile this function:

fff [] _ = []  fff (x:xs) ys   | r == [] = xs1   | otherwise ys ++ xs1   where r = filter (x<) ys   xs1 = fff xs ys

But I get this error:

Test.hs:14:4: parse error on input `where' Failed, modules loaded: none.

Any help to solve it?

Thanks,
Sebastián.

Answer