From f95bcf6411d1c6e87b87187853341e85cb1a246d Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Mon, 20 Aug 2007 23:44:10 +0000 Subject: [PATCH] Tweak some Haddock syntax. --- Utils.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Utils.hs b/Utils.hs index 5636f9a..31a823b 100644 --- a/Utils.hs +++ b/Utils.hs @@ -46,13 +46,14 @@ joinPath base new "." -> new dir -> dir ++ new --- | Given a monadic action wrapped in a Maybe, run it if there's one there; --- if it's Nothing, then do nothing. +-- | Given a monadic action wrapped in a `Maybe`, run it if there's one there; +-- if it's `Nothing`, then do nothing. doMaybe :: Monad m => Maybe (m ()) -> m () doMaybe (Just a) = a doMaybe Nothing = return () --- | Transforms between two Either types using the appropriate convert function: +-- | Transforms between two `Either` types using the appropriate convert +-- function: transformEither :: (a -> c) -> (b -> d) -> Either a b -> Either c d transformEither funcLeft funcRight x = case x of Left l -> Left (funcLeft l)