name change

zielmicha · Dec 28, 2014 · 3ef1907 · 3ef1907
1 parent 9bc2aaa
commit 3ef1907
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -36,12 +36,12 @@ makeHash = (':' :) . maybe "" init
 
 {- Git commands -}
 
-maybeResult :: (ExitCode, a, b) -> Maybe a
-maybeResult (exitCode, output, _) = 
+successOrNothing :: (ExitCode, a, b) -> Maybe a
+successOrNothing (exitCode, output, _) =
 	if exitCode == ExitSuccess then Just output else Nothing
 
 safeRun :: String -> [String] -> IO (Maybe String)
-safeRun command arguments = maybeResult <$> readProcessWithExitCode command arguments ""
+safeRun command arguments = successOrNothing <$> readProcessWithExitCode command arguments ""
 
 gitstatus :: IO (Maybe String)
 gitstatus =   safeRun "git" ["status", "--porcelain", "--branch"]