Removing print statements, sorry

This commit is contained in:
Andrew Gibiansky 2013-11-14 12:24:06 -08:00
parent 03c5a95623
commit 97e5335a76
3 changed files with 4 additions and 8 deletions

View File

@ -269,9 +269,7 @@
{
"cell_type": "code",
"collapsed": false,
"input": [
"zip "
],
"input": [],
"language": "python",
"metadata": {},
"outputs": [

View File

@ -36,11 +36,11 @@ import IHaskell.Types
data ErrorOccurred = Success | Failure
debug :: Bool
debug = True
debug = False
ignoreTypePrefixes :: [String]
ignoreTypePrefixes = ["GHC.Types", "GHC.Base", "GHC.Show", "System.IO",
"GHC.Floating"]
"GHC.Float"]
typeCleaner :: String -> String
typeCleaner = useStringType . foldl' (.) id (map (`replace` "") fullPrefixes)
@ -205,7 +205,7 @@ parseCommands code = joinMultilineDeclarations $ concatMap makeCommands pieces
(ParseFailed srcLoc errMsg, _) | isDeclaration str -> [ParseError (srcLine srcLoc) (srcColumn srcLoc) errMsg]
(_, Left (lineNumber, colNumber,errMsg)) -> [ParseError lineNumber colNumber errMsg]
where
(first, rest) = trace (show $ splitByIndent $ lines str) $ splitByIndent $ lines str
(first, rest) = splitByIndent $ lines str
-- Check whether this string reasonably represents a type declaration
-- for a variable.

View File

@ -70,8 +70,6 @@ kernel profileSrc = do
-- Read the request from the request channel.
request <- liftIO $ readChan $ shellRequestChannel interface
liftIO $ print request
-- Create a header for the reply.
replyHeader <- createReplyHeader (header request)