From 38ae85a344eb50f748eb2a2f1df305e82d41b212 Mon Sep 17 00:00:00 2001 From: Eugene Crosser Date: Thu, 24 Apr 2014 18:15:34 +0400 Subject: [PATCH] make indentation haskell98 compliant --- NmcTransform.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/NmcTransform.hs b/NmcTransform.hs index 7138bf9..c30bc1f 100644 --- a/NmcTransform.hs +++ b/NmcTransform.hs @@ -42,10 +42,10 @@ mergeIncl queryOp depth base = do base' = mbase {domDelegate = Nothing, domImport = Nothing} -- print base if depth <= 0 then return $ Left "Nesting of imports is too deep" - else case ((domDelegate mbase), (domImport mbase)) of - (Nothing, Nothing ) -> return $ Right base' - (Nothing, Just keys) -> foldM mergeIncl1 (Right base') keys - (Just key, _ ) -> mergeIncl1 (Right emptyNmcDom) key + else case ((domDelegate mbase), (domImport mbase)) of + (Nothing, Nothing ) -> return $ Right base' + (Nothing, Just keys) -> foldM mergeIncl1 (Right base') keys + (Just key, _ ) -> mergeIncl1 (Right emptyNmcDom) key where mergeIncl1 (Left err) _ = return $ Left err -- can never happen mergeIncl1 (Right acc) key = do -- 2.39.2