Haddock fixes

Author: justinethier

hs-src/Language/Scheme/Types.hs

@@ -141,7 +141,7 @@ data LispError = NumArgs (Maybe Integer) [LispVal] -- ^Invalid number of functio
   | InternalError String {- ^An internal error within husk; in theory user (Scheme) code
                          should never allow one of these errors to be triggered. -}
   | Default String -- ^Default error
-  | ErrorWithCallHist LispError [LispVal] 
+  | ErrorWithCallHist LispError [LispVal] -- ^Wraps an error to also include the current call history
 
 -- |Create a textual description for a 'LispError'
 showError :: LispError -> String

hs-src/Language/Scheme/Util.hs

@@ -29,7 +29,7 @@ escapeBackslashes = foldr step []
 -- | Remove leading/trailing white space from a string; based on corresponding 
 --   Python function. Code taken from: 
 --
---   http://gimbo.org.uk/blog/2007/04/20/splitting-a-string-in-haskell/
+--   <http://gimbo.org.uk/blog/2007/04/20/splitting-a-string-in-haskell/>
 strip :: String -> String
 strip s = dropWhile ws $ reverse $ dropWhile ws $ reverse s
     where ws = (`elem` [' ', '\n', '\t', '\r'])
@@ -43,7 +43,7 @@ countLetters :: Char -> String -> Int
 countLetters c str = length $ filter (== c) str
 
 -- | Take last n elements of a list, from:
---   http://stackoverflow.com/q/17252851/101258
+--   <http://stackoverflow.com/q/17252851/101258>
 lastN' :: Int -> [a] -> [a]
 lastN' n xs = DL.foldl' (const .drop 1) xs (drop n xs)