Lisää yksinkertaiset funktiot TITO-tiedostojen lukemiseen

src/Data/TITO.hs

@@ -1,2 +1,17 @@
 module Data.TITO where
 
+import Control.Exception
+
+import qualified Data.ByteString as BS
+import qualified Text.Megaparsec as P
+
+import Data.TITO.Parser
+import Data.TITO.Types
+
+readTITO :: BS.ByteString -> Either ParseErrors TITO
+readTITO = P.parse tito ""
+
+readTITOFile :: FilePath -> IO TITO
+readTITOFile fp =
+    BS.readFile fp >>=
+        either (throwIO . ErrorCall . P.errorBundlePretty) pure . P.parse tito fp