misc: add pretty print to error bundle of example

Author: cptrodolfox

cassava-megaparsec.cabal

@@ -63,6 +63,7 @@ executable cassava-megaparsec-example
                     , cassava-megaparsec
                     , text
                     , vector
+                    , megaparsec
   default-language:   Haskell2010
 
 test-suite tests

example/Main.hs

@@ -4,16 +4,18 @@
 
 module Main where
 
-import Data.Csv hiding (decode, decodeByName, decodeByNameWith, decodeWith)
-import Data.Csv.Parser.Megaparsec (decode, decodeByName, decodeByNameWith, decodeWith)
-import Data.Vector (Vector)
+import Data.Csv (FromRecord, HasHeader (NoHeader))
+import Data.Csv.Parser.Megaparsec (decode)
 import GHC.Generics (Generic)
+import Text.Megaparsec.Error (errorBundlePretty)
 
 data Test = Test {a :: Char, b :: Char, c :: Char} deriving (Eq, Show, Generic)
 
 instance FromRecord Test
 
 main :: IO ()
 main = do
-  let res = decode @Test NoHeader "example" "a,ba,c\n"
-  print res
+  let res = decode @Test NoHeader "example.csv" "a,ba,c\n"
+  case res of
+    Left errorBundle -> putStrLn $ errorBundlePretty errorBundle
+    Right value -> print value