@@ -1,4 +1,4 @@
1−module Generate.Cases (toMatch, Match (..), Clause (..), matchSubst, newVar) where
1+module Optimize.Cases (toMatch, Match (..), Clause (..), matchSubst, newVar) where
3import Control.Applicative ((<$>))
3import Control.Applicative ((<$>))
4import Control.Arrow (first)
4import Control.Arrow (first)
@@ -12,7 +12,7 @@ import qualified AST.Expression.Optimized as Optimized
12import qualified AST.Literal as Literal
12import qualified AST.Literal as Literal
13import qualified AST.Pattern as P
13import qualified AST.Pattern as P
14import qualified AST.Variable as Var
14import qualified AST.Variable as Var
15−import qualified Generate.Substitute as S
15+import qualified Optimize.Substitute as S
16import qualified Reporting.Annotation as A
16import qualified Reporting.Annotation as A