Make travis happy for 7.8 version
This commit is contained in:
parent
fc7b059f92
commit
a23b832258
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user