Skip to content

Commit e291574

Browse files
committed
Fix test functions
1 parent 71ced08 commit e291574

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

test-suite/Neovim/API/THSpecFunctions.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -4,19 +4,19 @@ module Neovim.API.THSpecFunctions
44
import qualified Data.Map as Map
55
import Neovim
66

7-
testFunction0 :: Neovim' Int
7+
testFunction0 :: Neovim env Int
88
testFunction0 = return 42
99

10-
testFunction2 :: CommandArguments -> String -> [String] -> Neovim' Double
10+
testFunction2 :: CommandArguments -> String -> [String] -> Neovim env Double
1111
testFunction2 _ _ _ = return 2
1212

13-
testFunctionMap :: Map.Map String Int -> String -> Neovim' (Maybe Int)
13+
testFunctionMap :: Map.Map String Int -> String -> Neovim env (Maybe Int)
1414
testFunctionMap m k = return $ Map.lookup k m
1515

1616
testSucc :: Int -> Neovim env Int
1717
testSucc = return . succ
1818

19-
testCommandOptArgument :: CommandArguments -> Maybe String -> Neovim' String
19+
testCommandOptArgument :: CommandArguments -> Maybe String -> Neovim env String
2020
testCommandOptArgument _ ms = case ms of
2121
Just x -> return x
2222
Nothing -> return "default"

0 commit comments

Comments
 (0)