hunk ./hask-home.hs 261
-  lic | null (licenseFile desc) = section "License" [p << show (license desc)]
-      | otherwise = section "License"
-                       [p << ("See "
-                              +++ (linkFile desc (licenseFile desc) << licenseFile desc)
-                              +++ ".")]
+  lic = section "License"
+        [p << (show (license desc) +++
+               case (licenseFile desc) of
+                 "" -> noHtml
+                 path -> ", see " +++ (linkFile desc path << path) +++ ".")
+        ]