misc: add example

Author: cptrodolfox

cassava-megaparsec.cabal

@@ -59,8 +59,10 @@ executable cassava-megaparsec-example
   hs-source-dirs:     example
   ghc-options:        -Wall -threaded -rtsopts -with-rtsopts=-N
   build-depends:      base
+                    , cassava
                     , cassava-megaparsec
                     , text
+                    , vector
   default-language:   Haskell2010
 
 test-suite tests

example/Main.hs

@@ -1,4 +1,19 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TypeApplications #-}
+
 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 GHC.Generics (Generic)
+
+data Test = Test {a :: Char, b :: Char, c :: Char} deriving (Eq, Show, Generic)
+
+instance FromRecord Test
+
 main :: IO ()
-main = putStrLn "This is a new example"
+main = do
+  let res = decode @Test NoHeader "example" "a,ba,c\n"
+  print res