firstCommentIn :: FilePath -> IO String
firstCommentIn f = takeComment <$> readFile f
  where takeComment = lines >>> takeWhile (/= "-}") >>> drop 1 >>> unlines
firstCommentIn :: FilePath -> IO String
firstCommentIn f = takeComment <$> readFile f
  where takeComment = lines >>> takeWhile (/= "-}") >>> drop 1 >>> unlines
firstCommentIn f = takeComment <$> readFile f
  where takeComment = lines >>> takeWhile (/= "-}") >>> drop 1 >>> unlines