Permalink
Browse files

nicer argument order

  • Loading branch information...
1 parent 4b77051 commit 5b611ed54e220ce70c2d2e10469642e7d2ec22e7 @mikeplus64 committed Jan 28, 2013
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/Language/Haskell/Repl.hs
@@ -53,13 +53,13 @@ prompt r sts x = do
-- | Enter commands and an expression to a 'Repl', and immediately consume results.
-- However, truncate input to the given length, and stop the computation after the
-- given amount of time in seconds.
-safePrompt :: Double -- ^ Time to wait (in seconds)
+safePrompt :: Repl
+ -> Double -- ^ Time to wait (in seconds)
-> Int -- ^ Maximum result length in 'Char'
- -> Repl
-> [String] -- ^ Commands
-> String -- ^ Expression used for results.
-> IO [String]
-safePrompt d i g sts x = do
+safePrompt g d i sts x = do
xs <- prompt g sts x
t <- newEmptyMVar
w0 <- forkIO $ do

0 comments on commit 5b611ed

Please sign in to comment.