@@ -25,7 +25,7 @@ import qualified AST.Expression.Source as Src
25import qualified AST.Variable as Var
25import qualified AST.Variable as Var
27import Text.Parsec hiding (newline,spaces)
27import Text.Parsec hiding (newline,spaces)
28−import Parse.Declaration (alias,datatype,infixDecl)
28+import Parse.Declaration (typeDecl,infixDecl)
29import Parse.Expression (typeAnnotation)
29import Parse.Expression (typeAnnotation)
30import Parse.Helpers
30import Parse.Helpers
31import Parse.Module (moduleDef)
31import Parse.Module (moduleDef)
@@ -102,7 +102,7 @@ docThing = uncommentable <|> commented <|> uncommented ""
102 uncommented comment
102 uncommented comment
104 uncommented comment = do
104 uncommented comment = do
105− (src,def) <- withSource $ choice [ alias, datatype, D.Definition <$> typeAnnotation ]
105+ (src,def) <- withSource $ choice [ typeDecl, D.Definition <$> typeAnnotation ]
106 return (comment, def, src)
106 return (comment, def, src)