add example

tanakh · Sep 28, 2011 · b660542 · b660542
1 parent 70d221c
commit b660542
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/example/Loc.hs b/example/Loc.hs
@@ -0,0 +1,17 @@
+{-# Language TemplateHaskell, QuasiQuotes, FlexibleContexts #-}
+import Text.Peggy
+
+data Number = Number SrcLoc Int deriving (Show)
+
+[peggy|
+nums :: [Number]
+  = num*
+num ::: Number
+  = [0-9]+ { Number $p (read $1) }
+|]
+
+main :: IO ()
+main =
+  case parseString nums "" "12    2434 \n  3 4 576" of
+    Left err -> print err
+    Right ns -> mapM_ print ns