@@ -675,7 +675,7 @@ assignVariable name = do
675 env <- checkEnv <$> get
675 env <- checkEnv <$> get
676 moduleName <- substCurrentModule <$> ask
676 moduleName <- substCurrentModule <$> ask
677 case M.lookup (moduleName, name) (names env) of
677 case M.lookup (moduleName, name) (names env) of
678− Just (_, LocalVariable) -> throwError $ "Variable with name " ++ show name ++ " already exists."
678+ Just _ -> throwError $ "Variable with name " ++ show name ++ " already exists."
679 _ -> return ()
679 _ -> return ()