refactor Ord to be based on compare

src/Lib/Eval.idr

@@ -1,8 +1,5 @@
 module Lib.Eval
 
--- For FC
-import Lib.Parser.Impl
-import Lib.Prettier
 import Lib.Types
 import Lib.TopContext
 
@@ -13,10 +10,6 @@ import Data.SnocList
 import Data.Vect
 import Data.SortedMap
 
--- Need to wire in the metas...
--- if it's top / ctx / IORef, I also need IO...
--- if I want errors, I need m anyway.  I've already got an error down there.
-
 export
 eval : Env -> Mode -> Tm -> M Val
 

src/Lib/Parser.idr

@@ -1,19 +1,11 @@
 module Lib.Parser
-import Lib.Types
-import Debug.Trace
+
+import Data.Maybe
 import Data.String
-
--- app: foo {a} a b
--- lam: λ {A} {b : A} (c : Blah) d e f => something
--- lam: \ {A} {b : A} (c : Blah) d e f => something
--- pi: (A : Set) -> {b : A} -> (c : Foo b) -> c -> bar d
--- pi: (A B : Set) {b : A} -> (c : Foo b) -> c -> bar d
-
-import Lib.Token
 import Lib.Parser.Impl
 import Lib.Syntax
-import Data.List
-import Data.Maybe
+import Lib.Token
+import Lib.Types
 
 ident = token Ident <|> token MixFix
 
@@ -104,10 +96,6 @@ pArg = do
 
 AppSpine = List (Icit,FC,Raw)
 
--- helper for debugging
-traceM : Monad m => String -> m ()
-traceM msg = trace msg $ pure ()
-
 pratt : Operators -> Int -> String -> Raw -> AppSpine -> Parser (Raw, AppSpine)
 pratt ops prec stop left spine = do
   (left, spine) <- runPrefix stop left spine