diff options
Diffstat (limited to 'src/Interpreter.hs')
| -rw-r--r-- | src/Interpreter.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Interpreter.hs b/src/Interpreter.hs index ca87a82..2c04e4f 100644 --- a/src/Interpreter.hs +++ b/src/Interpreter.hs @@ -448,7 +448,9 @@ evaluate other = runScriptFile :: String -> LContext [AST] runScriptFile fileName = do let srcM :: IO (Either IOError String) - srcM = try $ readFile fileName + srcM = case fileName of + "-" -> try $ getLine + _ -> try $ readFile fileName srcM' <- liftIO srcM src <- case srcM' of |