@@ -81,7 +81,9 @@ moduleHeader = try (do reserved "module"
81 i <- identifier
81 i <- identifier
82 option ';' (lchar ';')
82 option ';' (lchar ';')
83 return (moduleName i))
83 return (moduleName i))
84+ <|> try (do lchar '%'; reserved "unqualified"
84− <|> return []
85+ return [])
86+ <|> return (moduleName "Main")
85 where moduleName x = case span (/='.') x of
87 where moduleName x = case span (/='.') x of
86 (x, "") -> [x]
88 (x, "") -> [x]
87 (x, '.':y) -> x : moduleName y
89 (x, '.':y) -> x : moduleName y