dimitri/lsystems
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Apply hlint suggestions

Browse source
This commit is contained in:
Dimitri Lozeve 2018-01-17 19:46:55 +00:00
parent 15722908f4
commit 0c107d563e
2 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -49,7 +49,7 @@ listLSystemsParser = infoOption (printList lsystems)
splitOn :: Char -> String -> [String]
splitOn c s = case dropWhile (== c) s of
"" -> []
s' -> w:(splitOn c s'')
s' -> w : splitOn c s''
where (w, s'') = break (== c) s'
colorParser :: Parser Color
@ -60,7 +60,7 @@ colorParser = option (eitherReader readRGB)
<> showDefault
<> value white
<> metavar "R,G,B")
where readRGB s = do
where readRGB s =
case mapM readEitherSafe $ splitOn ',' s of
Right (r:g:b:a:_) -> Right $ makeColorI r g b a
Right (r:g:b:_) -> Right $ makeColorI r g b 255