Do not define the Fs_error exception inside the functor

[samoht]

Because of this. It is impossible to pattern match outside the functor. Or at least, provide a pretty printer for the error to make debugging easier.