Add parser example for my blog 💴

Codewars/Kata/Parsers.hs

@@ -0,0 +1,27 @@
+module Codewars.Kata.Parsers where
+
+import Control.Applicative ((<|>))
+import Text.Trifecta (Parser, char, runParser, stringLiteral, symbol)
+
+data Import
+    = Idl String
+    | Protocol String
+    | Schema String
+    deriving (Eq, Show, Ord)
+
+parser :: Parser Import
+parser =
+    symbol "import"
+        *> ( importHelper Idl "idl"
+                <|> importHelper Protocol "protocol"
+                <|> importHelper Schema "schema"
+           )
+  where
+    importHelper :: (String -> Import) -> String -> Parser Import
+    importHelper f s = f <$> (symbol s *> stringLiteral <* char ';')
+
+main :: IO ()
+main = do
+    print $ runParser parser mempty "import protocol \"foo.avpr\";"
+
+-- > Success (ProtocolImport "foo.avpr")

haskell-kata.cabal

@@ -17,12 +17,14 @@ library
     Codewars.Kata.FactorialComposition
     Codewars.Kata.MissingElement
     Codewars.Kata.MultiplesOf3And5
+    Codewars.Kata.Parsers
 
   build-depends:
       base
     , containers
     , megaparsec
     , mtl
     , split
+    , trifecta
 
   default-language: Haskell2010