composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-17 14:37:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Refactor the "str" code

Browse Source
This commit is contained in:
Harendra Kumar 2024-01-17 00:14:34 +05:30
parent 207f948d22
commit b39bed0669
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/src/Streamly/Internal/Unicode/String.hs
View File

@ -39,14 +39,14 @@ module Streamly.Internal.Unicode.String
--
-- $setup
str
str
) where
import Control.Applicative (Alternative(..))
import Control.Exception (displayException)
import Data.Functor.Identity (runIdentity)
import Streamly.Internal.Data.Parser (Parser)
import Streamly.Internal.Data.Parser (Parser, ParseError)
import Language.Haskell.TH
import Language.Haskell.TH.Quote
@ -106,9 +106,12 @@ strSegmentExp (StrVar name) = do
strExp :: [StrSegment] -> Q Exp
strExp xs = appE [| concat |] $ listE $ map strSegmentExp xs
parseStr :: String -> Either ParseError [StrSegment]
parseStr = runIdentity . Stream.parse strParser . Stream.fromList
expandVars :: String -> Q Exp
expandVars ln =
case runIdentity $ Stream.parse strParser (Stream.fromList ln) of
expandVars input =
case parseStr input of
Left e ->
fail $ "str QuasiQuoter parse error: " ++ displayException e
Right x ->