+objLink :: Parser InlineElement
+objLink = do _ <- try (string "[[[")
+ page <- many1 (noneOf "|]")
+ label <- option Nothing
+ (liftM Just (char '|' >> many1 (satisfy (/= ']'))))
+ _ <- string "]]]"
+ return $ ObjectLink page label
+ <?>
+ "object link"
+
+