Tissevert/pilu
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Don't really need a separate function to fmap pharmacy

Browse source
This commit is contained in:
Tissevert 2019-04-10 10:44:19 +02:00
parent d021155df2
commit b21cd8d909
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Main.hs
View file

@ -15,14 +15,11 @@ readCSV filePath = do
Left e -> (putStrLn $ show e) >> exitFailure Left e -> (putStrLn $ show e) >> exitFailure
Right rows -> return rows Right rows -> return rows
getPharmacy :: String -> IO Pharmacy
getPharmacy = fmap pharmacy . readCSV
getCurrentState :: IO State getCurrentState :: IO State
getCurrentState = getCurrentState =
currentState currentState
<$> (utctDay <$> getCurrentTime) <$> (utctDay <$> getCurrentTime)
<*> getPharmacy "medicine.csv" <*> (pharmacy <$> readCSV "medicine.csv")
<*> readCSV "timeline.csv" <*> readCSV "timeline.csv"
main :: IO () main :: IO ()