mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-19 12:56:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix liftio in completion.hs

Browse Source
This commit is contained in:
Andrew Gibiansky 2015-05-26 10:59:36 +02:00
parent 543005c9a2
commit b7b0613249
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/IHaskell/Eval/Completion.hs
View File

@ -1,5 +1,4 @@
{-# LANGUAGE NoImplicitPrelude, CPP, OverloadedStrings, DoAndIfThenElse #-}
{-# LANGUAGE TypeFamilies, FlexibleContexts #-}
{-# LANGUAGE CPP, DoAndIfThenElse, TypeFamilies, FlexibleContexts #-}
{- |
Description: Generates tab completion options.
@ -37,6 +36,7 @@ import GHC.PackageDb (ExposedModule(exposedName))
#endif
import DynFlags
import GhcMonad
import qualified GhcMonad
import PackageConfig
import Outputable (showPpr)
import MonadUtils (MonadIO)
@ -320,7 +320,7 @@ completePathFilter :: (String -> Bool) -- ^ File filter: test whether to in
-> String -- ^ Line contents to the left of the cursor.
-> String -- ^ Line contents to the right of the cursor.
-> Interpreter [String]
completePathFilter includeFile includeDirectory left right = liftIO $ do
completePathFilter includeFile includeDirectory left right = GhcMonad.liftIO $ do
-- Get the completions from Haskeline. It has a bit of a strange API.
expanded <- dirExpand left
completions <- map replacement <$> snd <$> completeFilename (reverse expanded, right)