Attempt to fix tests

haskell · May 18, 2020 · 4b2325f · 4b2325f
1 parent b2ddc1f
commit 4b2325f
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/src/Development/IDE/Spans/AtPoint.hs b/src/Development/IDE/Spans/AtPoint.hs
@@ -142,7 +142,8 @@ typeLocationsAtPoint getHieFile = querySpanInfoAt getTypeSpan
         getTypeSpan SpanInfo { spaninfoType = Just t } =
           case splitTyConApp_maybe t of
             Nothing -> return Nothing
-            Just (getName -> name, _) -> nameToLocation getHieFile name
+            Just (getName -> name, _) ->
+              nameToLocation getHieFile name
         getTypeSpan _ = return Nothing
 
 locationsAtPoint

diff --git a/test/data/Bar.hs b/test/data/Bar.hs
@@ -1,3 +1,3 @@
-module Bar (Bar) where
+module Bar (Bar(..)) where
 
 data Bar = Bar
diff --git a/test/data/GotoHover.hs b/test/data/GotoHover.hs
@@ -1,10 +1,10 @@
+{-# LANGUAGE OverloadedStrings #-}
 {- HLINT ignore -}
 module Testing ( module Testing ) where
 import Data.Text (Text, pack)
 import Foo (Bar, foo)
 
 
-
 data TypeConstructor = DataConstructor
   { fff :: Text
   , ggg :: Int }

diff --git a/test/exe/Main.hs b/test/exe/Main.hs
@@ -1356,8 +1356,8 @@ findDefinitionAndHoverTests = let
     , testGroup "hover"      $ mapMaybe snd tests
     , testGroup "type-definition" $ typeDefinitionTests ]
 
-  typeDefinitionTests = [ tst (getTypeDefinitions, checkDefs) dcL7 tcData "Saturated data con"
-                        , tst (getTypeDefinitions, checkDefs) opL16 [ExpectNoDefinitions] "Polymorphic variable"]
+  typeDefinitionTests = [ tst (getTypeDefinitions, checkDefs) aaaL14 (pure tcData) "Saturated data con"
+                        , tst (getTypeDefinitions, checkDefs) opL16 (pure [ExpectNoDefinitions]) "Polymorphic variable"]
 
   test runDef runHover look expect = testM runDef runHover look (return expect)