@@ -107,7 +107,7 @@ parseImportDeclaration = do
107 idents <- P.sepBy1 parseIdent (lexeme $ indented *> P.char ',')
107 idents <- P.sepBy1 parseIdent (lexeme $ indented *> P.char ',')
108 lexeme $ indented *> P.char ')'
108 lexeme $ indented *> P.char ')'
109 return idents
109 return idents
110− let modulePath = (mkModulePath (ModulePath [head segments]) (tail segments))
110+ let modulePath = mkModulePath (ModulePath [head segments]) (tail segments)
111 return $ ImportDeclaration modulePath idents
111 return $ ImportDeclaration modulePath idents
112 where mkModulePath path (s:ss) = mkModulePath (subModule path s) ss
112 where mkModulePath path (s:ss) = mkModulePath (subModule path s) ss
113 mkModulePath path _ = path
113 mkModulePath path _ = path