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 ""
|
, 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)
|
||||||
|
Loading…
Reference in New Issue
Block a user