use Q style

[clean-tests.git] / datatype / Language.hs

diff --git a/datatype/Language.hs b/datatype/Language.hs
index bc7c73f..c2909f1 100644 (file)
--- a/datatype/Language.hs
+++ b/datatype/Language.hs
@@ -20,7 +20,7 @@ class Expression v where
     lit :: (Serialise a, Show a) => a -> v a
     (+.) :: Num a => v a -> v a -> v a
     (-.) :: Num a => v a -> v a -> v a
-    (/.) :: Num a => v a -> v a -> v a
+    (/.) :: Fractional a => v a -> v a -> v a
     (*.) :: Num a => v a -> v a -> v a
     neg :: Num a => v a -> v a
     (&.) :: v Bool -> v Bool -> v Bool