columns :: Int -> PrefsMod
columns cols = PrefsMod $ \p -> p { prefColumns = cols }
columns :: Int -> PrefsMod
columns cols = PrefsMod $ \p -> p { prefColumns = cols }
columns cols = PrefsMod $ \p -> p { prefColumns = cols }