Updated bug list & started working on more tests

src/Main.hs

@@ -3,15 +3,15 @@
 module Main where
 
 -- import           Codegen.Codegen           (compile)
-import           Grammar.ErrM            (Err)
-import           Grammar.Par             (myLexer, pProgram)
-import           Grammar.Print           (printTree)
+import Grammar.ErrM (Err)
+import Grammar.Par (myLexer, pProgram)
+import Grammar.Print (printTree)
 
 -- import           LambdaLifter.LambdaLifter (lambdaLift)
-import           Renamer.Renamer         (rename)
-import           System.Environment      (getArgs)
-import           System.Exit             (exitFailure, exitSuccess)
-import           TypeChecker.TypeChecker (typecheck)
+import Renamer.Renamer (rename)
+import System.Environment (getArgs)
+import System.Exit (exitFailure, exitSuccess)
+import TypeChecker.TypeChecker (typecheck)
 
 main :: IO ()
 main =

src/TypeChecker/Bugs.md

@@ -1,8 +1,22 @@
 ## Bugs
 
-### Polymorphic type variables are global?
+None known at this moment
+
+## Fixed bugs
+
+* 1
+
+```hs
+fmap : ('a -> 'b) -> Maybe ('a) -> Maybe ('b) ;
+fmap f x =
+    case x of {
+        Just x => Just (f x) ;
+        Nothing => Nothing
+    }
+```
+
+* 2
 
-This doesn't work (occurs check failed, can't unify `(a -> a) = a`
 ```hs
 data Maybe ('a) where {
     Nothing : Maybe ('a)
@@ -29,16 +43,3 @@ id x = x ;
 main : Maybe ('a -> 'a) ; 
 main = Just id;
 ```
-UPDATE: Might have found a fix. Need to be tested.
-
-### The function f is not carried into the case-expression
-
-Code example that does not type check
-```hs
-fmap : ('a -> 'b) -> Maybe ('a) -> Maybe ('b) ;
-fmap f x =
-    case x of {
-        Just x => Just (f x) ;
-        Nothing => Nothing
-    }
-```

src/TypeChecker/TypeChecker.hs

@@ -61,7 +61,7 @@ freshenData (Data (Constr name ts) constrs) = do
   where
     freshenType :: Ident -> Type -> Type
     freshenType iden = \case
-        (TPol a) -> TPol iden
+        (TPol _) -> TPol iden
         (TArr a b) -> TArr (freshenType iden a) (freshenType iden b)
         (TConstr (Constr a ts)) ->
             TConstr (Constr a (map (freshenType iden) ts))