Commit 296c75f7 authored by Andrew Gibiansky's avatar Andrew Gibiansky

Allow :load to take multiple filenames or module names

parent 1bb67fef
...@@ -556,9 +556,10 @@ evalCommand _ (Directive GetKind expr) state = wrapExecution state $ do ...@@ -556,9 +556,10 @@ evalCommand _ (Directive GetKind expr) state = wrapExecution state $ do
let typeStr = showSDocUnqual flags $ ppr kind let typeStr = showSDocUnqual flags $ ppr kind
return $ formatType $ expr ++ " :: " ++ typeStr return $ formatType $ expr ++ " :: " ++ typeStr
evalCommand _ (Directive LoadFile name) state = wrapExecution state $ do evalCommand _ (Directive LoadFile names) state = wrapExecution state $ do
write state $ "Load: " ++ name write state $ "Load: " ++ names
forM_ (words names) $ \name -> do
let filename = if endswith ".hs" name let filename = if endswith ".hs" name
then name then name
else name ++ ".hs" else name ++ ".hs"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment