From 003278e52d758fa5a11ebb2f82b30499d11fcbe7 Mon Sep 17 00:00:00 2001 From: bjorn Date: Fri, 23 May 2008 06:31:52 +0000 Subject: Added GF.System.Readline and related modules back into src-3.0. --- src-3.0/GF/System/Readline.hs | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 src-3.0/GF/System/Readline.hs (limited to 'src-3.0/GF/System/Readline.hs') diff --git a/src-3.0/GF/System/Readline.hs b/src-3.0/GF/System/Readline.hs new file mode 100644 index 000000000..c12493f98 --- /dev/null +++ b/src-3.0/GF/System/Readline.hs @@ -0,0 +1,27 @@ +{-# OPTIONS -cpp #-} + +---------------------------------------------------------------------- +-- | +-- Module : GF.System.Readline +-- Maintainer : BB +-- Stability : (stable) +-- Portability : (portable) +-- +-- > CVS $Date: 2005/05/10 15:04:01 $ +-- > CVS $Author: bringert $ +-- > CVS $Revision: 1.2 $ +-- +-- Uses the right readline library to read user input. +----------------------------------------------------------------------------- + +module GF.System.Readline (fetchCommand) where + +#ifdef USE_READLINE + +import GF.System.UseReadline (fetchCommand) + +#else + +import GF.System.NoReadline (fetchCommand) + +#endif -- cgit v1.2.3