diff --git a/app/Main.hs b/app/Main.hs
index ee5d15ca7..c2bb71167 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -7,6 +7,7 @@ import Syntax
 import Control.Comonad.Cofree
 import Control.Monad.Free
 import Data.Map
+import Data.Set
 import Language.Haskell.Parser
 import Language.Haskell.Syntax
 import System.Environment
@@ -26,5 +27,9 @@ parseModuleFile file = do
   contents <- readFile file
   return $ parseModule contents
 
+moduleToTerm :: HsModule -> Term a Info
+moduleToTerm (HsModule loc name exports imports declarations) = info :< Indexed [] where
+  info = Info Range { start = 0, end = 0 } Data.Set.empty
+
 files (a : as) = (a, file as) where
   file (a : as) = a