Minor Haskell fix
Added preferences