From: Eugene Crosser Date: Thu, 24 Apr 2014 14:15:34 +0000 (+0400) Subject: make indentation haskell98 compliant X-Git-Tag: 0.9.0.0~12 X-Git-Url: http://average.org/gitweb/?a=commitdiff_plain;h=38ae85a344eb50f748eb2a2f1df305e82d41b212;p=pdns-pipe-nmc.git make indentation haskell98 compliant --- 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