From c5550bd482d7f81b8aa2648dffdcc72705457f1d Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 3 Jun 2006 11:51:08 +0000
Subject: check circularities in ln

---
 src/GF/Infra/ReadFiles.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Infra/ReadFiles.hs')

diff --git a/src/GF/Infra/ReadFiles.hs b/src/GF/Infra/ReadFiles.hs
index fcd7093a5..e1e2e06d8 100644
--- a/src/GF/Infra/ReadFiles.hs
+++ b/src/GF/Infra/ReadFiles.hs
@@ -167,7 +167,7 @@ needCompile opts headers sfiles0 = paths $ res $ mark $ iter changed where
                                    Just ms <- [lookup m allDeps], elem f ms])
                     || oElem retainOpers opts)
         -> if elem t [MTyResource,MTyIncResource] 
-              then (f,(path,CSRes)) else
+           then (f,(path,CSRes)) else
               if t == MTyIncomplete
               then (f,(path,CSComp)) else
               x
-- 
cgit v1.2.3