Show types of data constructors with "browse -d"

2013-03-01 22:11:02 +09:00
parent 9a6c960d53
commit 80676966b9
2 changed files with 11 additions and 2 deletions
--- a/test/BrowseSpec.hs
+++ b/test/BrowseSpec.hs
@@ -17,3 +17,7 @@ spec = do
        it "lists up symbols with type info in the module" $ do
            syms <- lines <$> browseModule defaultOptions { detailed = True } "Data.Either"
            syms `shouldContain` "either :: (a -> c) -> (b -> c) -> Either a b -> c"
+
+        it "lists up data constructors with type info in the module" $ do
+            syms <- lines <$> browseModule defaultOptions { detailed = True} "Data.Either"
+            syms `shouldContain` "Left :: a -> Either a b"