@@ -38,7 +38,7 @@ buildFromSource interfaces source =
38 -- reorder AST into strongly connected components
38 -- reorder AST into strongly connected components
39 program = SD.sortDefs . dummyLet $ TcDecl.toExpr decls,
39 program = SD.sortDefs . dummyLet $ TcDecl.toExpr decls,
40 types = Map.empty,
40 types = Map.empty,
41− datatypes = [ (name, vars, ctors) | Datatype name vars ctors <- decls ],
41+ datatypes = [ (name,vars,ctors) | Datatype name vars ctors <- decls ],
42 fixities = [ (assoc,level,op) | Fixity assoc level op <- decls ],
42 fixities = [ (assoc,level,op) | Fixity assoc level op <- decls ],
43 aliases = [ (name,tvs,tipe) | TypeAlias name tvs tipe <- decls ],
43 aliases = [ (name,tvs,tipe) | TypeAlias name tvs tipe <- decls ],
44 foreignImports = [ (evt,v,name,typ) | ImportEvent evt v name typ <- decls ],
44 foreignImports = [ (evt,v,name,typ) | ImportEvent evt v name typ <- decls ],