gdritter repos config-ini / 2d0ff2d
Remove unnecessary type annotations in expressions Getty Ritter 7 years ago
1 changed file(s) with 4 addition(s) and 4 deletion(s). Collapse all Expand all
+4
-4
src/Data/Ini/Config/Raw.hs less more
159159
160160 sComment :: Parser BlankLine
161161 sComment = do
162 c <- oneOf (";#" :: String)
162 c <- oneOf ";#"
163163 txt <- T.pack `fmap` manyTill anySingle eol
164164 return (CommentLine c txt)
165165
171171 pSection leading prevs = do
172172 start <- getCurrentLine
173173 void (char '[')
174 name <- T.pack `fmap` some (noneOf ("[]" :: String))
174 name <- T.pack `fmap` some (noneOf "[]")
175175 void (char ']')
176176 void eol
177177 comments <- sBlanks
204204 pPair :: Seq BlankLine -> Parser (NormalizedText, IniValue)
205205 pPair leading = do
206206 pos <- getCurrentLine
207 key <- T.pack `fmap` some (noneOf ("[]=:" :: String))
208 delim <- oneOf (":=" :: String)
207 key <- T.pack `fmap` some (noneOf "[]=:")
208 delim <- oneOf ":="
209209 val <- T.pack `fmap` manyTill anySingle eol
210210 return ( normalize key
211211 , IniValue