Specialize Pipes.Prelude.takeFree

Since we discard the return value of the `FreeT f m r` argument, it
makes sense to specialize it to be `()`.