diff --git a/src/Main.hs b/src/Main.hs
index 91b196f..7d74f63 100644
--- a/src/Main.hs
+++ b/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 ()