diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2022-10-16 16:29:18 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2022-10-16 16:29:18 +0200 |
| commit | f578ee4a3d2e3357294a5fe83713b5c04ac6096f (patch) | |
| tree | 559c29c91d1279f60b0fe5e783651d6dd24a69a7 /lib/MandelHSlib.hs | |
| parent | 4c8c2f99a9817fe84ee7626de11736b133c1de1f (diff) | |
Consistent pixel type
Diffstat (limited to 'lib/MandelHSlib.hs')
| -rw-r--r-- | lib/MandelHSlib.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MandelHSlib.hs b/lib/MandelHSlib.hs index d9409f7..44d59dd 100644 --- a/lib/MandelHSlib.hs +++ b/lib/MandelHSlib.hs @@ -4,9 +4,9 @@ import qualified Data.Serialize as Ser import qualified Data.Vector.Storable as VS -data Fractal a = Fractal (Int, Int) Int (VS.Vector a) +data Fractal = Fractal (Int, Int) Int (VS.Vector Double) -instance (VS.Storable a, Ser.Serialize a) => Ser.Serialize (Fractal a) where +instance Ser.Serialize Fractal where put (Fractal size maxiter v) = do Ser.put size Ser.put maxiter |