Make travis happy for 7.8 version

This commit is contained in:
Alan Zimmerman 2015-10-03 16:00:46 +02:00
parent fc7b059f92
commit a23b832258
1 changed files with 1 additions and 0 deletions

View File

@ -502,6 +502,7 @@ legacyInteractiveLoop symdbreq world = do
, GHandler $ \(SomeException e) -> gmErrStrLn (show e) >> return ""
]
getFileSourceFromStdin :: IO String
getFileSourceFromStdin = do
linesIn <- readStdin'
return (intercalate "\n" linesIn)