-- |Given a record, print whether the club is open or not.
formatEntropia :: Entropia -> String
formatEntropia = status . club_offen
               where
                   status True  = "Club ist offen."
                   status False = "Club ist geschlossen." 

-- |Fetch and decode the JSON file. Results in 'Either String Entropia',
-- signaling parse status.
formatEntropia :: Entropia -> String
formatEntropia = status . club_offen
               where
                   status True  = "Club ist offen."
                   status False = "Club ist geschlossen." 

-- |Fetch and decode the JSON file. Results in 'Either String Entropia',
-- signaling parse status.
formatEntropia = status . club_offen
               where
                   status True  = "Club ist offen."
                   status False = "Club ist geschlossen." 

-- |Fetch and decode the JSON file. Results in 'Either String Entropia',
-- signaling parse status.