Don't really need a separate function to fmap pharmacy

src/Main.hs

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