nf the types, block comments, more eq example now that we have implicits

src/Lib/Compile.idr

@@ -23,4 +23,4 @@ compile l (App t u) = compile l t <+> "(" <+> compile l u <+> ")"
 
 compile l U = "undefined"
 compile l (Pi str icit t u) = "undefined"
-compile l (Meta k) = ?fixme_zonk
+compile l (Meta k) = text "ZONKME \{show k}"

src/Lib/Tokenizer.idr

@@ -28,6 +28,7 @@ rawTokens
   <|> match (some digit) (Tok Number)
   <|> match (is '#' <+> many alpha) (Tok Pragma)
   <|> match (lineComment (exact "--")) (Tok Space)
+  <|> match (blockComment (exact "/-") (exact "-/")) (Tok Space)
   <|> match (some opChar) (\s => Tok Oper s)
   <|> match symbol (Tok Symbol)
   <|> match spaces (Tok Space)
@@ -38,4 +39,4 @@ notSpace _ = True
 
 export
 tokenise : String -> List BTok
-tokenise = filter notSpace . fst . lex rawTokens 
+tokenise = filter notSpace . fst . lex rawTokens

src/Main.idr

@@ -51,8 +51,9 @@ processDecl (TypeSig nm tm) = do
   putStrLn "-----"
   putStrLn "TypeSig \{nm} \{show tm}"
   ty <- check (mkCtx top.metas) tm VU
-  putStrLn "got \{show ty}"
-  modify $ claim nm ty
+  ty' <- nf [] ty
+  putStrLn "got \{show ty'}"
+  modify $ claim nm ty'
 
 -- FIXME - this should be in another file
 processDecl (Def nm raw) = do