From d8751f2cced8f14366533ff0dbbc62fa73ec8665 Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Mon, 16 Mar 2020 10:50:03 +0100
Subject: Clean parser for expression containing rational and imaginary

---
 src/context.hs | 22 ----------------------
 1 file changed, 22 deletions(-)
 delete mode 100644 src/context.hs

(limited to 'src/context.hs')

diff --git a/src/context.hs b/src/context.hs
deleted file mode 100644
index c5abfe0..0000000
--- a/src/context.hs
+++ /dev/null
@@ -1,22 +0,0 @@
-module Context where
-
-import Data.List
-import Control.Alternative
-
-type Label = String
-data State a = State [a]
-data Context a = Context [Decl] a
-
-instance Functor Context where
-    fmap f (Context state x) = Context (f x) state
-
-getLabel :: Declaration a => State a -> Label -> Maybe a
-getLabel (State decls) l = find (label . (l ==)) decls
-
-class Declaration a where
-    label :: a -> Label
-    -- value for variable
-    -- partial expression where the only variable left is the argument
-    resolve :: a -> State -> b
-
-
-- 
cgit