undoing debugging printDisplay

2b4af24b · Andrew Gibiansky · 59322359 · 2b4af24b
Commit 2b4af24b authored Mar 10, 2014 by Andrew Gibiansky
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 3 deletions

Basic.hs ihaskell-display/ihaskell-basic/IHaskell/Display/Basic.hs +1 -3

No files found.
--- a/ihaskell-display/ihaskell-basic/IHaskell/Display/Basic.hs
+++ b/ihaskell-display/ihaskell-basic/IHaskell/Display/Basic.hs
@@ -6,9 +6,7 @@ import IHaskell.Display
 import Text.Printf

 instance Show a => IHaskellDisplay (Maybe a) where
-  display just = do
-    printDisplay $ Display [stringDisplay, htmlDisplay]
-    return $ Display [stringDisplay, htmlDisplay]
+  display just = return $ Display [stringDisplay, htmlDisplay]
    where 
      stringDisplay = plain (show just)
      htmlDisplay = html str