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