Don't need type errors here
This commit is contained in:
parent
bcab7a0395
commit
cee8a29a54
@ -16,7 +16,7 @@ import OccName
|
|||||||
|
|
||||||
test :: IOish m
|
test :: IOish m
|
||||||
=> FilePath -> GhcModT m String
|
=> FilePath -> GhcModT m String
|
||||||
test f = runGmlT' [Left f] (return . setHscInterpreted) $ do
|
test f = runGmlT' [Left f] (fmap setHscInterpreted . deferErrors) $ do
|
||||||
mg <- getModuleGraph
|
mg <- getModuleGraph
|
||||||
root <- cradleRootDir <$> cradle
|
root <- cradleRootDir <$> cradle
|
||||||
f' <- makeRelative root <$> liftIO (canonicalizePath f)
|
f' <- makeRelative root <$> liftIO (canonicalizePath f)
|
||||||
|
Loading…
Reference in New Issue
Block a user