hoogle 4.0 → 4.0.0.1

raw patch · 3 files changed

+4/−2 lines, 3 files

Files

• hoogle.cabal +1/−1
• src/Hoogle/TypeSig/Parser.hs +1/−1
• src/Test/Parse_Query.hs +2/−0

@@ -1,7 +1,7 @@ cabal-version:      >= 1.1.4 build-type:         Simple name:               hoogle-version:            4.0+version:            4.0.0.1 license:            GPL license-file:       LICENSE category:           Development

@@ -98,7 +98,7 @@          keysymbol = try $ do             x <- many1 $ satisfy (\x -> isSymbol x || x `elem` ascSymbol)-            if x `elem` ["::","=>",".","=","#",":","-","+","/"] then fail "Bad symbol" else+            if x `elem` ["::","=>",".","=","#",":","-","+","/","--"] then fail "Bad symbol" else                 return $ if x == "-#" then "->" else x         ascSymbol = "!#$%&*+./<=>?@\\^|-~:" 

@@ -9,6 +9,7 @@     let (===) = parseTest parseQuery      "/info" === defaultQuery{flags = [Flag "info" ""]}+    "--info" === defaultQuery{flags = [Flag "info" ""]}     "/?" === defaultQuery{flags = [Flag "?" ""]}     "/count=10" === defaultQuery{flags = [Flag "count" "10"]}     "map" === defaultQuery{names = ["map"]}@@ -19,6 +20,7 @@     "+Data.Map map" === defaultQuery{scope = [PlusModule ["Data","Map"]], names = ["map"]}     "a -> b +foo" === defaultQuery{scope = [PlusPackage "foo"], typeSig = Just (TypeSig [] (TFun [TVar "a",TVar "b"]))}     "a -> b /foo" === defaultQuery{flags = [Flag "foo" ""], typeSig = Just (TypeSig [] (TFun [TVar "a",TVar "b"]))}+    "a -> b --foo" === defaultQuery{flags = [Flag "foo" ""], typeSig = Just (TypeSig [] (TFun [TVar "a",TVar "b"]))}     "Data.Map.map" === defaultQuery{scope = [PlusModule ["Data","Map"]], names = ["map"]}     "[a]" === defaultQuery{typeSig = Just (TypeSig [] (TApp (TLit "[]") [TVar "a"]))}     "++" === defaultQuery{names = ["++"]}