key = discKey . stripSpace . unsafePerformIO $ readFile "irc/api"
  where
    discKey = Map.lookup "discourse-newflood" . read
    stripSpace = dropWhile (`elem` [' ', '\n']) . takeWhile (/= '\n')
key = discKey . stripSpace . unsafePerformIO $ readFile "irc/api"
  where
    discKey = Map.lookup "discourse-newflood" . read
    stripSpace = dropWhile (`elem` [' ', '\n']) . takeWhile (/= '\n')
key = discKey . stripSpace . unsafePerformIO $ readFile "irc/api"
  where
    discKey = Map.lookup "discourse-newflood" . read
    stripSpace = dropWhile (`elem` [' ', '\n']) . takeWhile (/= '\n')