From ea145ddf5289c1f12d01a39ceb2935ddce8b31a0 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Tue, 3 Jun 2008 16:54:59 +0000 Subject: add setCompletionFunction in GF.System.Readline --- src-3.0/GF/System/NoReadline.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src-3.0/GF/System/NoReadline.hs') diff --git a/src-3.0/GF/System/NoReadline.hs b/src-3.0/GF/System/NoReadline.hs index 138ba4e28..564200a3e 100644 --- a/src-3.0/GF/System/NoReadline.hs +++ b/src-3.0/GF/System/NoReadline.hs @@ -12,7 +12,7 @@ -- Do not use readline. ----------------------------------------------------------------------------- -module GF.System.NoReadline (fetchCommand) where +module GF.System.NoReadline (fetchCommand, setCompletionFunction) where import System.IO.Error (try) import System.IO (stdout,hFlush) @@ -25,3 +25,6 @@ fetchCommand s = do case res of Left e -> return "q" Right l -> return l + +setCompletionFunction :: Maybe (String -> String -> Int -> IO [String]) -> IO () +setCompletionFunction _ = return () -- cgit v1.2.3