summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorTom Smeding <tom@tomsmeding.com>2022-10-16 16:29:18 +0200
committerTom Smeding <tom@tomsmeding.com>2022-10-16 16:29:18 +0200
commitf578ee4a3d2e3357294a5fe83713b5c04ac6096f (patch)
tree559c29c91d1279f60b0fe5e783651d6dd24a69a7 /lib
parent4c8c2f99a9817fe84ee7626de11736b133c1de1f (diff)
Consistent pixel type
Diffstat (limited to 'lib')
-rw-r--r--lib/MandelHSlib.hs4
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