Skip to content
This repository was archived by the owner on Oct 7, 2020. It is now read-only.

Adapt GhcModPluginSpec after merge of #1496 #1507

Merged
merged 1 commit into from
Dec 29, 2019
Merged

Adapt GhcModPluginSpec after merge of #1496 #1507

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions test/unit/GhcModPluginSpec.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -39,7 +39,7 @@ ghcmodSpec =
fp <- makeAbsolute "./FileWithWarning.hs"
let act = setTypecheckedModule arg
arg = filePathToUri fp
IdeResultOk (_,env) <- runSingle testPlugins act
IdeResultOk (_,env) <- runSingle testPlugins fp act
case env of
[] -> return ()
[s] -> T.unpack s `shouldStartWith` "Loaded package environment from"
Expand All @@ -55,7 +55,7 @@ ghcmodSpec =
"Variable not in scope: x"
Nothing

testCommand testPlugins act "ghcmod" "check" arg res
testCommand testPlugins fp act "ghcmod" "check" arg res


-- ----------------------------------------------------------------------------
Expand All @@ -72,7 +72,7 @@ ghcmodSpec =
, (Range (toPos (5,1)) (toPos (5,14)), "Int -> Int")
]

testCommand testPlugins act "ghcmod" "type" arg res
testCommand testPlugins fp act "ghcmod" "type" arg res


-- ----------------------------------------------------------------------------
Expand Down