rename description to desc

make-pages/RSS.hs

@@ -48,20 +48,20 @@ make' root title desc prefix output infos = [b|@0
       |]
 
 makeItem :: Strict.Text -> FilePath -> FilePath -> Info -> Builder
-makeItem root prefix path (Info {title, description, date}) = [b|@4
+makeItem root prefix path (Info {title, desc, date}) = [b|@4
     <item>
       <title>$*title</title>
       <link>$link</link>
       <guid>$link</guid>
-      $description'
+      $desc'
       <pubDate>$date'</pubDate>
     </item>
   |]
  where
   dir  = takeDirectory path
   link = [b|$*root/$@prefix/$@dir|]
-  description' =
-    case description of
+  desc' =
+    case desc of
       Nothing -> ""
       Just d  -> [b|@6
         <description>