From 0e6cb47e1b5e0d380eb7b6a0290a9a2e6d25c605 Mon Sep 17 00:00:00 2001 From: Rick Winfrey Date: Tue, 11 Oct 2016 17:06:51 -0500 Subject: [PATCH] Fix the order of the then else conditions --- src/SemanticDiff.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/SemanticDiff.hs b/src/SemanticDiff.hs index dc068b1ae..4a33814eb 100644 --- a/src/SemanticDiff.hs +++ b/src/SemanticDiff.hs @@ -112,8 +112,8 @@ fetchDiff' Arguments{..} filepath = do where diffArguments = R.DiffArguments { format = format, output = output } fetchText textDiff = if developmentMode - then liftIO $ Timeout.timeout timeoutInMicroseconds textDiff - else liftIO $ Just <$> textDiff + then liftIO $ Just <$> textDiff + else liftIO $ Timeout.timeout timeoutInMicroseconds textDiff pathsToDiff :: Arguments -> Both String -> IO [FilePath]