Commit d4e2a5059cbec21bb1dc9fad65f2e4dbb8f60f4e - config-ini

Refactor some code to account for pre-AMP Haskell Getty Ritter 8 years ago

2 changed file(s) with 8 addition(s) and 5 deletion(s). Collapse all Expand all

-4

src/Data/Ini/Config/Raw.hs less more

43	43	Right v -> Right v
44	44
45	45	pIni :: Parser Ini
46		pIni = sBlanks > (go `fmap` (many (pSection <?> "section") < eof))
47		where go vs = Ini $ HM.fromList [ (T.toLower (isName v), v)
48		\| v <- vs
49		]
	46	pIni = do
	47	sBlanks
	48	vs <- many (pSection <?> "section")
	49	void eof
	50	return $ Ini $ HM.fromList [ (T.toLower (isName v), v)
	51	\| v <- vs
	52	]
50	53
51	54	sBlanks :: Parser ()
52	55	sBlanks = skipMany (void eol <\|> sComment)

-1

src/Data/Ini/Config.hs less more

30	30	, flag
31	31	) where
32	32
33		import Control.Applicative (Alternative(..))
	33	import Control.Applicative (Applicative(..), Alternative(..))
34	34	import Control.Monad.Trans.Except
35	35	import qualified Data.HashMap.Strict as HM
36	36	import Data.Ini.Config.Raw