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

View File

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