Transform ModuleString and Expression type synonyms into newtypes

2015-06-01 18:10:37 +03:00
parent 6a65701397
commit 7b6eb55b11
10 changed files with 27 additions and 18 deletions
--- a/test/FindSpec.hs
+++ b/test/FindSpec.hs
@@ -9,4 +9,4 @@ spec = do
    describe "db <- loadSymbolDb" $ do
        it "lookupSymbol' db \"head\"  contains at least `Data.List'" $ do
            db <- runD loadSymbolDb
-            lookupSym "head" db `shouldContain` ["Data.List"]
+            lookupSym "head" db `shouldContain` [ModuleString "Data.List"]