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