OMS/tito
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Lisää yksinkertaiset funktiot TITO-tiedostojen lukemiseen

Browse Source
This commit is contained in:
Saku Laesvuori 2025-07-19 15:28:35 +03:00
parent 9d3e6400b9
commit f9fc39fe8e
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Data/TITO.hs
View File

@ -1,2 +1,17 @@
module Data.TITO where 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