From 18c9cfd7c1fb4baf1789f178a8d56ddb8f0f1456 Mon Sep 17 00:00:00 2001 From: Charles Date: Sat, 14 Mar 2020 12:41:34 +0100 Subject: Draft expr compatibility --- src/imag.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/imag.hs') diff --git a/src/imag.hs b/src/imag.hs index 71c0607..16ac28e 100644 --- a/src/imag.hs +++ b/src/imag.hs @@ -1,6 +1,6 @@ module Imag where -newtype Imag = Imag { getImag :: Float } +-- newtype Imag = Imag { getImag :: Float } -instance Show Imag where - show (Imag i) = show i ++ "i" +-- instance Show Imag where +-- show (Imag i) = show i ++ "i" -- cgit