From e0ade28ab642c043501493fe7192b626a6a68115 Mon Sep 17 00:00:00 2001 From: Charles Date: Thu, 12 Mar 2020 16:19:55 +0100 Subject: Caveman parsing working (brain hurty) --- src/imag.hs | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 src/imag.hs (limited to 'src/imag.hs') diff --git a/src/imag.hs b/src/imag.hs new file mode 100644 index 0000000..71c0607 --- /dev/null +++ b/src/imag.hs @@ -0,0 +1,6 @@ +module Imag where + +newtype Imag = Imag { getImag :: Float } + +instance Show Imag where + show (Imag i) = show i ++ "i" -- cgit