simple links

diff --git a/Wiki.hs b/Wiki.hs
index ab89fff9de0e8c6a9a6e6bd834b67fd589d26c81..64c46028bdcd8dd51d204037457e5bba4302866b 100644 (file)
--- a/Wiki.hs
+++ b/Wiki.hs
@@ -38,7 +38,8 @@ wikiParser :: GenParser Char st Document
 wikiParser = do 
        s <- (try (pPara) 
                <|> pOneEol 
-               <|> pLinkLong
+               <|> try (pLinkLong)
+               <|> pLink
                <|> pText)
        ss <- (wikiParser <|> return [])
        return (s:ss)
@@ -63,6 +64,12 @@ pLinkLong = do
        d <- many1 $ noneOf ['|','[',']'] 
        string "]]"
        return (Link l d)
+pLink = do
+       string "[["
+       l <- many1 $ noneOf ['|','[',']']
+       string "]]"
+       return (Link l l)
+
 pText = do
        t <- many1 (noneOf ['\n','\r','[',']'])
        return (Text t)