Start implementing "fiddle" code.

nothing is happening right now, but it's on its way.

1 files changed, 21 insertions, 0 deletions

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