From bf66c00aa9ee8a7f8058e396db167324076331b2 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Fri, 16 Dec 2022 20:54:00 -0700
Subject: Start implementing "fiddle" code.

nothing is happening right now, but it's on its way.
---
 src/Language/Fiddle/Parser.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 src/Language/Fiddle/Parser.hs

(limited to 'src/Language/Fiddle/Parser.hs')

diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs
new file mode 100644
index 0000000..3a44b31
--- /dev/null
+++ b/src/Language/Fiddle/Parser.hs
@@ -0,0 +1,21 @@
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Language.Fiddle.Parser where
+
+import Language.Fiddle.Types
+import Data.Functor.Identity
+import Data.Text
+import Text.Parsec
+
+newtype FiddleUnit a = FiddleUnit a
+
+parseUnit :: ParsecT s u m (FiddleUnit Metadata)
+parseUnit = undefined
+
+parseText :: String -> Text -> Either String (FiddleUnit Metadata)
+parseText sourceName txt = runIdentity $ do
+  res <- Text.Parsec.runParserT parseUnit () sourceName []
+  return $
+    case res of
+      Left pe -> Left (show pe)
+      Right a -> Right a
-- 
cgit