fix Main

exe/Main.idr

@@ -35,7 +35,7 @@ main : IO ()
 main = do
   seen <- newIORef SortedSet.empty
   defs <- newIORef SortedMap.empty
-  suf  <- newIORef $ the Nat 0
+  suf  <- newIORef 0
   for_ (drop 1 !getArgs) $ \file => do
     putStrLn "checking \{file}"
     Right res <- fromParserIO ["."] seen suf defs $ loadProcessFile noLoc file

lib/Quox/Parser/FromParser.idr

@@ -5,7 +5,7 @@ import public Quox.Parser.FromParser.Error as Quox.Parser.FromParser
 
 import Quox.Parser.Syntax
 import Quox.Parser.Parser
-import Quox.Parser.LoadFile
+import public Quox.Parser.LoadFile
 import Quox.Typechecker
 
 import Data.List