Create partitions.hs