adding fluid sim haskell and image datatypes