Browse Source

Fixed type error in example program

Getty Ritter 7 years ago
parent
commit
9958ca9f66
1 changed files with 1 additions and 1 deletions
  1. 1 1
      example/example.hs

+ 1 - 1
example/example.hs

@@ -77,7 +77,7 @@ mkLangPrinter
 
 main :: IO ()
 main = do
-  sExprText <- pack . head <$> getContents
+  sExprText <- pack <$> getContents
   either putStrLn print (decode myLangParser sExprText)
 
 {-