Comment tweak

src/Blaze/Senza.hs

@@ -1,4 +1,4 @@
--- | Blaze without attribute operators
+-- | Blaze without attribute operators.
 
 module Blaze.Senza where
 

src/HL/M/Wiki.hs

@@ -29,13 +29,14 @@ import Text.XML.Cursor
 getWikiPage :: Text -> IO (Either Text (Text,Pandoc))
 getWikiPage article =
   do request <- parseUrl ("http://www.haskell.org/haskellwiki/Special:Export/" <> unpack article)
-     withManager $ \manager -> do
+     withManager
-       response <- http request manager
+       (\manager ->
+          do response <- http request manager
              doc <- catch (fmap Just (responseBody response $$+- sinkDoc def))
                           (\(_::UnresolvedEntityException) -> return Nothing)
              case doc >>= parse of
                Nothing -> return (Left "Unable to parse XML from haskell.org.")
-         Just (title,pan) -> return (Right (title,pan))
+               Just (title,pan) -> return (Right (title,pan)))
   where
     parse doc =
       do let cursor = fromDocument doc

src/HL/V/Template.hs

@@ -93,7 +93,8 @@ bread url crumbs =
   ol [class_ "breadcrumb"]
      (forM_ crumbs
             (\route ->
-               li [] (a [href (url route)]
+               li []
+                  (a [href (url route)]
                      (toHtml (fromRoute route)))))
 
 -- | Generate a human-readable string from a route.