 'Text' to look for in the row consisting of the 'Course' type.
               -> Course    -- ^ The row to look in.
               -> Text      -- ^ The result 'Text'.
getCellContent k c = fromMaybe (traceShow ("Key not found" :: String, k, c) $ "Key not found: " <> k) $ getCellContentMaybe k c


{- | Get the content of a specifi
getCellContent :: Text      -- ^ The 'Text' to look for in the row consisting of the 'Course' type.
               -> Course    -- ^ The row to look in.
               -> Text
getCellContent k c = fromMaybe (traceShow ("Key not found" :: String, k, c) $ "Key not found: " <> k) $ getCellContentMaybe k c
getCellContent k c = fromMaybe (traceShow ("Key not found" :: String, k, c) $ "Key not found: " <> k) $ getCellContentMaybe k c