hscope 0.1.1 → 0.1.2

raw patch · 4 files changed

+18/−3 lines, 4 files

Files

• HScope.hs +1/−1
• hscope.cabal +2/−1
• t/Build.hs +9/−1
• t/files/Fixity.hs +6/−0

@@ -127,7 +127,7 @@                 in if rest == " is not enabled"                    then go ((classifyExtension ext):exts)                    else Left $ str ++ " for " ++ f ++ " at " ++ show src-    pmode exts = defaultParseMode { fixities = Just baseFixities+    pmode exts = defaultParseMode { fixities = Just []                             , extensions = exts                             , parseFilename = f } 

@@ -1,5 +1,5 @@ Name:           hscope-Version:        0.1.1+Version:        0.1.2 License:        BSD3 License-File:   COPYING Category:       source-tools@@ -24,6 +24,7 @@ Stability:      Experimental Extra-Source-Files:     t/files/Arrow.hs+    t/files/Fixity.hs     t/files/a/c.h     t/files/a/a.h     t/files/b/b.h

@@ -23,7 +23,7 @@  main :: IO () main = withTemporaryDirectory "/tmp/hscope_test_XXXXXX" $ \td -> testSimpleMain $ do-    plan 43+    plan 45     hpath <- liftIO $ canonicalizePath "./dist/build/hscope/hscope"     tfile <- liftIO $ canonicalizePath "./t/files/Simple.hs"     ec1 <- liftIO $ system $ "cd " ++ td ++ " && " ++ hpath ++ " -b " ++ tfile@@ -128,5 +128,13 @@      res17 <- liftIO $ readProcess hpath [ "--build" ] ""     like res17 $ "Please provide files to build the hscope database"++    res18 <- liftIO $ readProcess hpath [ "--build", "-f", td ++ "/foo.out"+                            , "t/files/Fixity.hs" ] ""+    is res18 $ ""++    res19 <- liftIO $ readProcess hpath [ "-d", "-f", td ++ "/foo.out"+                                            , "-3", "==>" ] ""+    like res19 "0 ==>"      return ()

@@ -0,0 +1,6 @@+module HScopeBug where+import Test.QuickCheck ((==>))++epsilon = 0.05+f = (* 1.1)+propInfixBug x = x > 0 ==> f x < epsilon