[Specialized a fail (and return).
tobias@goedderz.info**20140718095606
 Ignore-this: 5e2b780e6099f0c2471e44232e5b49e2
] hunk ./src/Igor2/Data/Rules.hs 36
-import Data.Function
+import Data.Function (on)
hunk ./src/Igor2/RuleDevelopment/Cata.hs 17
-import Data.Either
+import Data.Either (rights)
hunk ./src/Igor2/RuleDevelopment/Cata.hs 231
+
hunk ./src/Syntax/Builder.hs 108
-          (Hs.ClsDecl dcl) -> return dcl ;
-           _owise -> fail $ noSupport "Associated data types or type synonyms" sloc 
+          (Hs.ClsDecl dcl) -> [dcl] ;
+           _owise -> []
hunk ./src/Syntax/Specification.hs 12
-import Data.Either
+import Data.Either (partitionEithers)