diff --git a/haskell/app/Main.hs b/haskell/app/Main.hs
index 432f862..b682144 100644
--- a/haskell/app/Main.hs
+++ b/haskell/app/Main.hs
@@ -196,7 +196,7 @@ data StdInput
 
 instance Show StdInput where
   show MkEmptyStdInput    = ""
-  show (MkStdInputVal v)  = show v
+  show (MkStdInputVal v)  = v
 
 
 type IOEitherError a = IO (Either Error a)