DataTypes style

Hello!
It would be great to add option to style DataTypes and other structures, for example:

```
data Point = Point
{ pointX :: Double, pointY :: Double
, pointName :: String
}
deriving (Show)
```

should be changed to the following (or simmilar):

```
data Point = Point { pointX :: Double
, pointY :: Double
, pointName :: String
} deriving (Show)
```

Additional the ability to enable or disable some pretification parts would be very usefull - for example, some users would not like to put types in the same column (like in my example)