diff --git a/app/Main.hs b/app/Main.hs
index 679d4b793..a59da2dd3 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -22,6 +22,10 @@ main = do
     return (a', b')
   return ()
 
+data Leaf =
+  HsQName HsQName
+  | HsCName HsCName
+
 parseModuleFile :: FilePath -> IO (ParseResult HsModule)
 parseModuleFile file = do
   contents <- readFile file