From f578ee4a3d2e3357294a5fe83713b5c04ac6096f Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 16 Oct 2022 16:29:18 +0200 Subject: Consistent pixel type --- lib/MandelHSlib.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/MandelHSlib.hs') 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 -- cgit v1.2.3-70-g09d2