@@ -1661,7 +1661,7 @@ fixModuleImportTypoTests = testGroup "fix module import typo"
1661
1661
[ testSession " works when single module suggested" $ do
1662
1662
doc <- createDoc " A.hs" " haskell" " import Data.Cha"
1663
1663
_ <- waitForDiagnostics
1664
- action <- pickActionWithTitle " replace with Data.Char" =<< getCodeActions doc (R 0 0 0 10 )
1664
+ action <- pickActionWithTitle " Replace with Data.Char" =<< getCodeActions doc (R 0 0 0 10 )
1665
1665
executeCodeAction action
1666
1666
contentAfterAction <- documentContents doc
1667
1667
liftIO $ contentAfterAction @?= " import Data.Char"
@@ -1670,11 +1670,11 @@ fixModuleImportTypoTests = testGroup "fix module import typo"
1670
1670
_ <- waitForDiagnostics
1671
1671
actions <- getCodeActions doc (R 0 0 0 10 )
1672
1672
traverse_ (assertActionWithTitle actions)
1673
- [ " replace with Data.Eq"
1674
- , " replace with Data.Int"
1675
- , " replace with Data.Ix"
1673
+ [ " Replace with Data.Eq"
1674
+ , " Replace with Data.Int"
1675
+ , " Replace with Data.Ix"
1676
1676
]
1677
- replaceWithDataEq <- pickActionWithTitle " replace with Data.Eq" actions
1677
+ replaceWithDataEq <- pickActionWithTitle " Replace with Data.Eq" actions
1678
1678
executeCodeAction replaceWithDataEq
1679
1679
contentAfterAction <- documentContents doc
1680
1680
liftIO $ contentAfterAction @?= " import Data.Eq"
@@ -2640,7 +2640,7 @@ importRenameActionTests = testGroup "import rename actions" $
2640
2640
where
2641
2641
check modname = checkCodeAction
2642
2642
(" Data.Mape -> Data." <> T. unpack modname)
2643
- (" replace with Data." <> modname)
2643
+ (" Replace with Data." <> modname)
2644
2644
(T. unlines
2645
2645
[ " module Testing where"
2646
2646
, " import Data.Mape"
@@ -2686,33 +2686,33 @@ fillTypedHoleTests = let
2686
2686
liftIO $ expectedCode @=? modifiedCode
2687
2687
in
2688
2688
testGroup " fill typed holes"
2689
- [ check " replace _ with show"
2689
+ [ check " Replace _ with show"
2690
2690
" _" " n" " n"
2691
2691
" show" " n" " n"
2692
2692
2693
- , check " replace _ with globalConvert"
2693
+ , check " Replace _ with globalConvert"
2694
2694
" _" " n" " n"
2695
2695
" globalConvert" " n" " n"
2696
2696
2697
- , check " replace _convertme with localConvert"
2697
+ , check " Replace _convertme with localConvert"
2698
2698
" _convertme" " n" " n"
2699
2699
" localConvert" " n" " n"
2700
2700
2701
- , check " replace _b with globalInt"
2701
+ , check " Replace _b with globalInt"
2702
2702
" _a" " _b" " _c"
2703
2703
" _a" " globalInt" " _c"
2704
2704
2705
- , check " replace _c with globalInt"
2705
+ , check " Replace _c with globalInt"
2706
2706
" _a" " _b" " _c"
2707
2707
" _a" " _b" " globalInt"
2708
2708
2709
- , check " replace _c with parameterInt"
2709
+ , check " Replace _c with parameterInt"
2710
2710
" _a" " _b" " _c"
2711
2711
" _a" " _b" " parameterInt"
2712
- , check " replace _ with foo _"
2712
+ , check " Replace _ with foo _"
2713
2713
" _" " n" " n"
2714
2714
" (foo _)" " n" " n"
2715
- , testSession " replace _toException with E.toException" $ do
2715
+ , testSession " Replace _toException with E.toException" $ do
2716
2716
let mkDoc x = T. unlines
2717
2717
[ " module Testing where"
2718
2718
, " import qualified Control.Exception as E"
@@ -2721,7 +2721,7 @@ fillTypedHoleTests = let
2721
2721
doc <- createDoc " Test.hs" " haskell" $ mkDoc " _toException"
2722
2722
_ <- waitForDiagnostics
2723
2723
actions <- getCodeActions doc (Range (Position 3 0 ) (Position 3 maxBound ))
2724
- chosen <- pickActionWithTitle " replace _toException with E.toException" actions
2724
+ chosen <- pickActionWithTitle " Replace _toException with E.toException" actions
2725
2725
executeCodeAction chosen
2726
2726
modifiedCode <- documentContents doc
2727
2727
liftIO $ mkDoc " E.toException" @=? modifiedCode
@@ -2737,7 +2737,7 @@ fillTypedHoleTests = let
2737
2737
doc <- createDoc " Test.hs" " haskell" $ mkDoc " `_`"
2738
2738
_ <- waitForDiagnostics
2739
2739
actions <- getCodeActions doc (Range (Position 5 16 ) (Position 5 19 ))
2740
- chosen <- pickActionWithTitle " replace _ with foo" actions
2740
+ chosen <- pickActionWithTitle " Replace _ with foo" actions
2741
2741
executeCodeAction chosen
2742
2742
modifiedCode <- documentContents doc
2743
2743
liftIO $ mkDoc " `foo`" @=? modifiedCode
@@ -2750,7 +2750,7 @@ fillTypedHoleTests = let
2750
2750
doc <- createDoc " Test.hs" " haskell" $ mkDoc " _"
2751
2751
_ <- waitForDiagnostics
2752
2752
actions <- getCodeActions doc (Range (Position 2 13 ) (Position 2 14 ))
2753
- chosen <- pickActionWithTitle " replace _ with (<$>)" actions
2753
+ chosen <- pickActionWithTitle " Replace _ with (<$>)" actions
2754
2754
executeCodeAction chosen
2755
2755
modifiedCode <- documentContents doc
2756
2756
liftIO $ mkDoc " (<$>)" @=? modifiedCode
@@ -2763,7 +2763,7 @@ fillTypedHoleTests = let
2763
2763
doc <- createDoc " Test.hs" " haskell" $ mkDoc " `_`"
2764
2764
_ <- waitForDiagnostics
2765
2765
actions <- getCodeActions doc (Range (Position 2 16 ) (Position 2 19 ))
2766
- chosen <- pickActionWithTitle " replace _ with (<$>)" actions
2766
+ chosen <- pickActionWithTitle " Replace _ with (<$>)" actions
2767
2767
executeCodeAction chosen
2768
2768
modifiedCode <- documentContents doc
2769
2769
liftIO $ mkDoc " <$>" @=? modifiedCode
0 commit comments